1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625). 2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 ...
1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625). 2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8. Решить в Паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы