Помогите решить в turbo pascal.Вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1(с помощью оператора for).
Помогите решить в turbo pascal.
Вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1(с помощью оператора for).
Гость
Ответ(ы) на вопрос:
Гостьprogram easybreazy;
var j:integer;
begin
for j:=10 to 99 do
if j mod 10= j div 10+1 then writeln(j);
end.
Гость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.
Не нашли ответ?
Похожие вопросы