Найти сумму двух чисел. - Pascal ABC
Формулировка задачи:
Входные данные должны считываться из файла input.txt
Выходные данные выводятся в файл output.txt
Для передачи на тестирование программа должна иметь вид текстового файла.
Даны целые числа А и В (0<=A, B<=1000) . Необходимо найти сумму этих чисел.
Решение задачи: «Найти сумму двух чисел.»
textual
Листинг программы
Program s1;
uses crt;
var A,B,S:integer;
begin
clrscr;
writeln('ÂÂåäèòå A=');
readln(A);
writeln('ÂÂåäèòå B=');
readln(B);
If (A>=0) and (B<=1000)then begin
S:=A+B;
writeln('ÑóììГ* Г·ГЁГ±ГҐГ«=',S);
end;
If (A<0) and (B>1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
If (A<0) and (B<=1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
If (A>=0) and (B>1000) then begin
writeln('ГЌГҐГўГҐГ°Г*Г®');
end;
readkey;
end.
Объяснение кода листинга программы
- Объявлены три переменные: A, B и S типа integer.
- Задаются условия для проверки диапазона введенных значений переменных A и B.
- Если значения переменных A и B удовлетворяют условиям, то выполняется операция сложения и присваивается результат переменной S.
- Выводится сообщение с результатом сложения.
- Если значения переменных A и B не удовлетворяют ни одному из условий, то выводится сообщение «ГЌГҐГўГҐГ°Г*Г®».