Помогите решить в turbo pascal.

Вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1 (с помощью оператора for).

Question

Вероня

4 марта, 02:15

+5

Ответы (2)

Знаете ответ?

Пётр · Answer 1

Program easybreazy;

var j:integer;

begin

for j:=10 to 99 do

if j mod 10 = j div 10+1 then writeln (j) ;

end.

Кирилла · Answer 2

Var

i : Integer;

begin

for i : = 10 to 99 do

if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then Writeln (i) ;

Readln;

end.

Помогите решить в turbo pascal.Вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1 (с помощью оператора for).