Составить программу для паскаля: Найти сумму квадратов цифр целого числа. Количество цифр в числе не указан
Предмет:
ИнформатикаАвтор:
smarty1vedProgram summa_zifr;
Var S, X, A: integer;
begin
s:=0;
Write ('Введите число для нахождения суммы');
Read (X);
While X<>0 do begin
A:= X mod 10;
S:= A * A + S;
X:= X div 10;
end;
Write ('Сумма квадратов цифр числа" , X , '=', S);
end.
'Сумма квадратов цифр числа' - одинарный апостроф на конце предложения:)))
Автор:
quinn31var a,b,s:integer;begin readln (a); while (a>0) do begin b:=a mod 10; s:=s+b*b; a:=a div 10; end; writeln (s);end.
Автор:
churchДобавить свой ответ
решите систему неравенств 1//3х>1 -8х>-16
Предмет:
АлгебраАвтор:
amandawashingtonОтветов:
Смотреть
Задача.К 980 г 5 % раствора серной кислоты прилили избыток раствора нейтрата бария.Найдите массу выпавшего осадка
Предмет:
ХимияАвтор:
dakotauk6tОтветов:
Смотреть
Укажите растения луга Купальница Кислица
Предмет:
Другие предметыАвтор:
pumpkindoyuОтветов:
Смотреть
Написать сочинение на тему : Души мёртвые души живые в поэме Гоголя "Мертвые души" НАПИСАТЬ НЕ В СОКРАЩЕНИИ!!!!!!!!!!!
Предмет:
ЛитератураАвтор:
jennajrqtОтветов:
Смотреть