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

0 голосов
60 просмотров

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


Информатика | 60 просмотров
Дан 1 ответ
0 голосов

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.

(80 баллов)