Составьте программу вычисления количества трёхзначных чисел, у которых первая цифра меньше третьей на 4

Hdjfhdhe73747 Hdjfhdhe73747    1   17.06.2019 07:50    1

Ответы
помоги1361 помоги1361  02.10.2020 03:33
Var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if (i  div 100 )+4= i mod 10
then k:=k+1;
writeln('Количество чисел  =', k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика