1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625).
2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8.
Решить в Паскале
More Questions From This User See All
Answers & Comments
2)
Program Numbers;
Var
i: integer;
sum: integer;
Begin
sum := 0;
i := 21;
while i<=99 do
begin
if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8) then
sum := sum + i;
i := i + 3;
end;
WriteLn(sum);
ReadLn;
End.