Кириак
5 год назад
Проверьте, пожалуйста, программу. Вот задание: составьте программу, выводящую на экран все двухзначные числа, у которых первая цифра в два раза больше второй. Только честно, пожалуйста. Это очень важно)program abc;var x, k, i: integer;begini:=0;for k:=0 to 9 dobeginfor x:=1 to 9 doif k mod 2=x then i:=i+1;end;writeln(i)end.
ОТВЕТЫ
Artyom
Oct 24, 2020
Вот более правильное решение
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.
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.
200
Смежные вопросы:
