Программа в Pascal ABC: Дано натуральное число. Определить: а) количество цифр в нем; б) сумму его цифр; б) сумму квадратов его цифр.
Нет комментариев
Ответы
Гость Б)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.
Нет комментариев
Похожие вопросы
Информатика
Вычислить произведение: 1/2*1/3*...*1/n...
Информатика
Люди!!! Срочно,умоляю,помогите,пожалуйста!Составить программу для рисования звездного неба(в паскале)....
Информатика
Помогите пожалуйста!!!!...
Список предметов
