Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор

begin program: adf;

begin

var a, b, c : = in tege;

begin

writeln ('write') ;

read (a, b, c) ;

writeln (a, b) ;

writeln (b, a) ;

writeln (a, c) ;

writeln (c, a) ;

writeln (b, c) ;

writeln (c, b) ;

end

Question

Информатика

Виктор

4 ноября, 05:49

Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор

begin program: adf;

begin

var a, b, c : = in tege;

begin

writeln ('write') ;

read (a, b, c) ;

writeln (a, b) ;

writeln (b, a) ;

writeln (a, c) ;

writeln (c, a) ;

writeln (b, c) ;

writeln (c, b) ;

end

+2

Ответы (1)

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

Тася · Answer 1

program Project1;

var

i, j, k : Byte;

begin

Writeln ('трехзначные числа где есть 2 од. цифры:') ; for i : = 1 to 9 do

for j : = 0 to 9 do

for k : = 0 to 9 do

if (i = j) or (j = k) or (i = k) then Writeln (i, j, k) ;

Readln;

end.

Пробел = TAB (который перед строкой)