Question

Составьте программу , которая выводит на экран все числа от 20 до 70 , оканчивающиеся на цифру 4

Answer 1

program n_1;
var i,a:integer;
  begin
    
    for i := 20 to 70 do  begin
      a := i mod 10;
        if a = 4 then
          writeln(i);
    end
  end.