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

Question

Информатика

Аркадий

17 октября, 17:00

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ульянка · Answer 1

Program zadanie;

var i, j, r:integer;

begin

writeln ('Высчитываем числа ... ') ;

for i:=1 to 9 do

for j:=1 to 9 do

if (i=2*j) then

begin

r:=i*10+j;

writeln (r) ;

end;

end.