Question

Проверьте, , программу. вот : составьте программу, выводящую на экран все двухзначные числа, у которых первая цифра в два раза больше второй. только честно, . это важно) program abc; var x, k, i: integer; begin i: =0; for k: =0 to 9 do begin for x: =1 to 9 do if k mod 2=x then i: =i+1; end; writeln(i) end.

Answer 1

Вот более правильное решение
var  x, k, i: integer;
begin  i := 0;  for k := 1 to 9 do  begin    for x := 1 to 9 do      if k / 2 = x then writeln(k, x);  end;end.