1. Составьте алгоритм вычисления суммы квадратов цифр,заданного трехзначного...

Question

1. Составьте алгоритм вычисления суммы квадратов цифр,заданного трехзначного числа.
2.Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа.
3. Для заданного действительного числа К вычислить значение произведения
(99/k^3-98)*(97/k^3+96)*(95/k^3-94)*...*(3/k^3+2)

Answer 1

1. var a,s:integer;
begin
writeln ('введи 3-значное число');
readln (a);
if (a>99) and (a<1000) then begin<br>while a>0 do
begin
s:=s+sqr(a mod 10);
a:=a div 10;
end;
writeln (s);
end else writeln ('Ошибка ввода');
end.

2. var a,s,k:longint;
begin
writeln ('введи 8-значное число');
readln (a);
if (a>9999999) and (a<100000000) then begin<br>while a>0 do
begin
k:= a mod 10;
s:=s-k*k*k;
a:=a div 10;
end;
writeln (s);
end else writeln ('Ошибка ввода');
end.