задачи по теме "Линейные алгоритмы" на Delphi 7

[matrix8325]

1. Написать программу, которая по заданым трем числам определяет, является ли сумма каких-либо двух из них положительной.
2. Написать программу, которая по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. они имеют следующие пароли: 9583, 1747- доступны модули базы А,В,С; 3331,7922-доступны модули базы Б,С; 9455,8997- доступен модуль базы С.

[Chudo4258]

1

var a,b,c:integer;
begin
write('a'); Readln(a);
write('b'); Readln(b);
write('c'); Readln(c);
 if a+b=c then writeln('a+b=c')
             else if a+c=b then writeln('a+c=b')
                               else if b+c=a then writeln('b+c=a')
                                                 else writeln('таких сумм нет');
end.

[matrix8325]

Спасибо Chudo4258