СОР № 1 Информатика 10ЕМН класс Файлдармен жұмыс жасау

Файлдармен жұмыс жасау

Задание:

Енгізу файлында 3 бүтін сан берілген. Егер бұл сандар үшбұрыштың қабырғалары бола алса, шығару файлына «ИӘ», кері жағдайда «ЖОҚ» хабарламасын шығарыңыз.

Решение:

program a;

var n,i:longint;

x:array[1..10000] of longint;

begin

readln(n);

for i:=1 to n do readln(x[i]);

for i:=n downto 1 do write(x[i],’ ‘);

end.