Регистрация
qwead23p08iwf
10.04.2021 10:32
Информатика
Есть ответ 👍

Программа в pascal abc: дано натуральное число. определить: а) количество цифр в нем; б) сумму его цифр; б) сумму квадратов его цифр.

213
464
Посмотреть ответы 2

Ответы на вопрос:

ната5810
ната5810
4,5(1 оценок)
Б)program up1; var q,w: integer; begin write('введите число'); read(q); while q> o do w: =q mod10; w: =w+w; q: =w div 10; end; write('сумма цифр числа равна',w); end.
yaroslavvorobep016v5
yaroslavvorobep016v5
4,6(86 оценок)

Клиент заплатил N*k гривен

Популярно: Информатика