Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
главный8
13.10.2022 08:29 •
Информатика
Дано двузначное число . найти квадрат суммы его цифр
Показать ответ
Ответ:
pishinaangelina
07.10.2020 10:53
Pascal
Program square;
Var a, b: integer;
Begin
Readln(a);
B := a mod 10 + a div 10;
B := power(b,2);
Writeln(b);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
gidfgwlr
21.03.2023 05:05
Переведите код в питон из паскаля: uses math; var n,w,h,a,b,c: int64; k: extended; begin read(w,h,n); a: =0; { в квадрате со стороной a не должно гарантированно поместиться...
frid1999YT
06.10.2021 04:18
Напишите программу для решения квадратного уравнения (pascalabc.net)...
карина1543
01.05.2020 15:25
Напишите программу для решения квадратного уравнения (python 3)...
nikolasosadchey
16.02.2022 05:28
Уменя есть вопрос! а почему когда я запускаю компьютер у меня подполняется место на диске? чиститься хорошо! но на следующий запуск опять подполнилось! что делать подскажите...
акл2
16.02.2022 05:28
Написать программу нахождения квадрата суммы двух чисел и их произведение(x=(a+b)^2 y=a^2b)...
yamoskit00
16.02.2022 05:28
Написать программу в паскале нахождения суммы произвольно вводимых с клавиатуры...
goodman91
03.04.2022 17:21
Три проводника с сопротивлением 4, 6, 8 ом соединены параллельно. в первом проводнике сила тока 15а. найдите силу тока во втором и третьем проводниках , в неразветвленной...
kati800713
03.04.2022 17:21
б) 0,5 + 0,01 3,4 * 0,5 с объяснением!...
aysemustafazade
03.04.2022 17:21
Слова можно составить из этих зарание . на тему школа(уроки и тд n e s g h i i f o i r a n m t i n o i h s y r t o s h m a t...
Roth999
03.04.2022 17:21
Найти среднее арифметическое элементов целого массива кол-во элементов в массиве 8...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program square;
Var a, b: integer;
Begin
Readln(a);
B := a mod 10 + a div 10;
B := power(b,2);
Writeln(b);
End.