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

Question

Информатика

Никитий

24 декабря, 12:49

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

+4

Ответы (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.