Решение задач в паскале с помощью div и mod 8 класс. Дано четырехзначное число . Нужно вычислить квадрат суммы всех цифр. помогите пожалуйста!
Решение задач в паскале с помощью div и mod 8 класс.
Дано четырехзначное число . Нужно вычислить квадрат суммы всех цифр.
помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьvar a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы