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

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.