Question

программа которая среди чисел от 100 до 200 находит количество чисел у которых последняя цифра - 3 и выводит эти числа

Answer 1

Ответ:

program z1;

var i,k:integer;

begin

k:=0;

writeln ('Числа, у которых последняя цифра - 3, среди чисел от 100 до 200 : ');

for i:=100 to 200 do

if i mod 10 = 3 then

begin

write (i:5);

k:=k+1

end;

writeln;

write ('Количество чисел: k = ',k)

end.

Объяснение:

for i:=100 to 200 do - используя цикл, перебираем числа

if i mod 10 then = 3 - используя условный оператор определяем на какую цифру заканчивается число, если на 3, то выводим на экран и увеличиваем количество на 1