Question

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

написать программу считающую количество чисел оканчивающихся на 5 и 7 в ряду от 1 до 300

Answer 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.