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

Question

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

Comments

цикл for. от 10 допустим до n . в цикле берешь делишь двузначное число на первое число и второе.записываешь их в разные переменные. если первое число = 2*второе число,то вывести это число

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.

Comments

Если имелось в виду, что программа сама высчитывает возможные числа, а не берет их из заданного массива) ибо про массив тут ни слова