Program prekombinuje všetkými možnosťami 3 zadané čísla

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Program: Kombinacia.pas

Program prekombinuje všetkými možnosťami 3 zadané čísla.
program kombinacia;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln ('Program prekombinuje 3 zadane cisla');
writeln ('-----------------------------------');
writeln ('Zadaj cislo');
readln (a);
writeln ('Zadaj cislo');
readln (b);
writeln ('Zadaj cislo');
readln (c);
clrscr;
writeln (a,b,c);
writeln (a,c,b);
writeln (b,a,c);
writeln (b,c,a);
writeln (c,b,a);
writeln (c,a,b);
readln;
end.