Написать программку которая выводит на экран 3,7,9,11,13 в ряду от 1

Ответ:

Объяснение:

program kol57;

var i,k,a:integer;

begin

for i:=1 to 15 do

if i in [1,3,7,9,11,13] then writeln(i);

readln;

k:=0;

for i:=1 to 300 do

begin

a:=i mod 10;

if (a=5) or (a=7) then

k:=k+1;

end;

writeln('Количество чисел, заканчивающихся на 5 либо 7 = ',k);

readln;

end.