Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
VladDzundza
22.01.2022 00:22 •
Информатика
Дано четырехзначное число.найти сумму квадратов второй и третьей цифры
Показать ответ
Ответ:
АВатар1765
25.06.2020 18:14
Program zadanie;
Var a,b,c,d,S:real;
Begin
Writeln('Введите значение четырехзначного числа через запятую(пример:1 3 5 6)');
Readln(a,b,c,d);
S:=sqr(b)+sqr(c);
Writeln('Сумма квадратов второй и третьей цифры равна=',S)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Машkа
28.09.2022 12:36
Що таке вид величини? -це множина припустимих значень величини -це характеристика величини, яка може багаторазово змінюватися в процесі виконання програми -визнача іб...
begemot14
21.04.2022 07:12
Написать программу, вычисляющую стоимость покупки с учётом скидки: куплено 4 товара, если сумма превышает 2500р, то скидка составит 5%, если превышает 1300р, то скидка...
singarella123
24.02.2020 12:18
Какова мощьность алфавита, с которого записано сообщение, содержащее 3072 символа, если его объём составляет 3 кбайт...
lizzili
18.01.2020 23:32
СОСТАВИТЬ ПРОГРАММУ НА ПИТОНЕ Дано натуральное число n. Составить программу вывода цифр, не входящих в десятичную запись числа n (в порядке возрастания). Например: в...
darinakydryash
16.01.2020 18:37
Определите, что будет напечатано в результате выполнения следующего алгоритма: var a,b: integer; begin a: =1; b: =1; while abs(b) 100 do begin d: =b*(-1); a: =3*a+b;...
11nastyaaaaa11
07.01.2022 17:22
Нет скул выдает ошибку при входе, а мне нужно туда попасть. хакеры...
vladyslav2523
15.05.2023 18:53
A»: а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с клавиатуры)....
vinerplay6
23.03.2022 04:41
Прочитайте условия и составьте блок схему. дан радиус круга r=2 определите диаметр круга . сор не игнорируйте.. программный код 20...
yaroslavat05
08.03.2020 12:41
По логической схеме получить логическую функцию. ( )...
Евгеха001
05.06.2023 07:59
Опишите любую реку по этому плану: 1) название 2) положение: 1)на материке(острове)(на каком материке(острове) и а какой его части находится река,между какими меридианами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b,c,d,S:real;
Begin
Writeln('Введите значение четырехзначного числа через запятую(пример:1 3 5 6)');
Readln(a,b,c,d);
S:=sqr(b)+sqr(c);
Writeln('Сумма квадратов второй и третьей цифры равна=',S)
End.