Составить программу нахождения всех двухзначных чисел,у которых первая цифра больше второй на 3.Подчситать их количесвто
Составить программу нахождения всех двухзначных чисел,у которых первая цифра больше второй на 3.Подчситать их количесвто
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы