Составить программу нахождения всех двухзначных чисел,у которых первая цифра больше второй на 3.подчситать их количесвто

sairma sairma    1   16.06.2019 03:20    0

Ответы
Annakuznetsova2006 Annakuznetsova2006  12.07.2020 23:54
Var
i,k,m,n:Integer;
Begin
 for i:=10 to 99 do
  begin
   m:=i mod 10;
   n:=i div 10;
   if (n-m=3) then k:=k+1;
  end;
 Writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика