Question

Написать программу, которая находит количество чисел, в которых 1-ая цифра больше 2-ой в промежутке 10;99(через for) паскаль

Answer 1

Ответ:

program Chernovik;

var i,k:integer;

begin

k:=0;

for i:=10 to 99 do

if i div 10 > i mod 10 then k:=k+1;

writeln(k);

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

i div 10 - первая цифра числа

i mod 10 - вторая цифра числа

Перебираем в цикле числа и сравниваем первую и вторую цифры