Pascal - PROFIWM.COM

Купить рекламу

Шины и диски для настоящих боссов дороги;

Обновить | Подписаться | Поднять тему

Чтобы выполнить действие авторизируйтесь или пройдите регистрацию на сайте.

Adobe

22.64

[автор] (15 фев 2014, 22:45) [1/0] [1] [отв] [спам] [под] +1 | -1

Привет. Нужна помощь с кодом.) Нужно написать программу,которая вычисляет сумму А и В,если результат находится в диапазоне от -32768..32767,то выводится сумма двух чисел в выходном файле,а если сумма не находится в диапазоне,то вывести сообщение в выходном файле \"EROARE DE DEPASIRE\"
Program p1;
VAR
a,b,sum:integer;
f1,f2:text;
begin
assign(f1,\'erorsum.txt\');
assign(f2,\'erorsumout.txt\');
reset(f1);
read(f1,a,b);
sum:=a+b;
if sum in[-32768..32767] then writeln(\'summa a+b=\') else writeln(\'EROARE DE DEPARSIRE\');
rewrite(f2);
writeln(f2,sum);
close(f2);
close(f1);
end.

Пока что только до этого додумался