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

Question

Информатика

Ионична

31 июля, 06:38

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

+3

Ответы (1)

Знаете ответ?

Талина · Answer 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.