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

1. program zz1;

var i : integer; / / задаем переменную целого типа

begin

for i:=100 to 999 do / / перебираем все трехзначные числа

if i = i*i mod 1000 then writeln (i); / / если выполнится условие, то выводим ответ

end.

2. program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

for i:=20 to 100 do / / перебираем числа

if (i mod 3 = 0) and ((i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)) then s:=s + i; / / если число удовлетворяет условию, то добавляем его к сумме

writeln (' сумма чисел удовлетворяющих условию = ', s); / / выводим ответ

end.