Selosobba
4 год назад
дано три цифры вывести все возможные трехзначные числа пишет ожидался операторbegin program: adf;beginvar a,b,c :=in tege; beginwriteln ('write');read (a,b,c);writeln (a,b);writeln (b,a);writeln (a,c);writeln (c,a);writeln (b,c);writeln (c,b);end
ОТВЕТЫ
Денка
Oct 24, 2020
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 (который перед строкой)
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 (который перед строкой)
473
Смежные вопросы: