vari:integer;beginfor i := 10 to 99 doif (((2*i) mod 10) = 8) and (((3*i) mod 10) = 4) thenwrite(i,' ');end.
P.s Таких чисел нет
var
i:integer;
begin
for i := 10 to 99 do
if (((2*i) mod 10) = 8) and (((3*i) mod 10) = 4) then
write(i,' ');
end.
P.s Таких чисел нет