Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TheRidGames
12.03.2021 03:26 •
Информатика
1.дано целое двузначное число. написать программу которая находит квадрат суммы его цифр. pascal
Показать ответ
Ответ:
qnorri
01.10.2020 16:30
Program qwerty;
var a, b, c, d:integer;
begin
writeln ('Нахождение квадрата суммы цифр двузначного числа');
writeln ('Введите число ');
readln (a);
b:= a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
d:= sqr (b + c);
writeln ('ответ: ', d)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
milenavetoshkina
01.10.2021 02:31
Перед началом выполнения алгоритма Робот находился в клетке С2. алг перемещение нач вправо если клетка закрашена то влево все влево если клетка закрашена то вправо все кон...
seniorkovalyov
08.02.2022 02:25
1. Дана последовательность операторов: a:=1; b:=2; while a+b 8 do begin a:=a+2; b:=b+2; end; s:=a+b Сколько раз будет повторен цикл и какими будут значения переменных a, b,...
МарианнаБелая
11.09.2022 14:14
1. Дополни предложения, в окошки напиши (скопируй) недостающие слова: (шрифт, алфавитном порядке, специальные окошки, кнопки изменения стиля, pt, дюйма, названия шрифтов,...
Sndrey68085
16.10.2022 22:58
Көмек! 3 сынып, оьиниш...
fma060429
11.01.2020 06:48
Что будет выведено на экран после выполнения следующих операторов, если с клавиатуры были введены числа 4,5,6,8,9,7,2,1: readln(a,b,c,a,c,b,c,a); writeln(a,b,c);...
RokkuKun
11.01.2020 06:48
45 дано: m = 32 страницы n = 28 строк k = 64 символов i = 8 бит v - ? (кбайт)...
4Z1GGeR4
31.07.2022 11:11
Во по всем заранее за Вводится одномерный массив 12 целых чисел. Разработайте проект, который вычисляет количество нулевых и произведение положительных чисел. Предусмотреть...
Bbob
26.02.2023 14:57
Как растворяется соль в воде...
lfrybkrrf
29.12.2022 22:50
4. ответы на вопросы. 1) Кто герои произведения? 2) Куда они отправились? 3) Что прои-зошло в музее? 4) Как в зале появилось чучело лошади? 5) Люди какихпрофессий работают...
lipa2907
29.10.2022 19:55
Сопротивление проводника... Выберите несколько из 5вариантов ответа:1) Прямо пропорциональнонапряжению на его концах2) Прямо пропорционально егодлине3) Обратно пропорциональноплощади...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b, c, d:integer;
begin
writeln ('Нахождение квадрата суммы цифр двузначного числа');
writeln ('Введите число ');
readln (a);
b:= a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
d:= sqr (b + c);
writeln ('ответ: ', d)
end.