найти сумму двух чисел.

@Scruff · Регистрация: 24.09.2011

Author24 — интернет-сервис помощи студентам

Входные данные должны считываться из файла input.txt
Выходные данные выводятся в файл output.txt
Для передачи на тестирование программа должна иметь вид текстового файла.

Добавлено через 11 часов 34 минуты
Даны целые числа А и В (0<=A, B<=1000) . Необходимо найти сумму этих чисел.

@Petteriteri1 · 26.09.2011, 14:52

Pascal

 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.

@Scruff · 26.09.2011, 17:45 **[ТС]**

Спасибо!!!

@Scruff 0 / 0 / 0 Регистрация: 24.09.2011 Сообщений: 7
		1
	найти сумму двух чисел. 26.09.2011, 12:29. Показов 9277. Ответов 2 Метки нет (Все метки) Входные данные должны считываться из файла input.txt Выходные данные выводятся в файл output.txt Для передачи на тестирование программа должна иметь вид текстового файла. Добавлено через 11 часов 34 минуты Даны целые числа А и В (0<=A, B<=1000) . Необходимо найти сумму этих чисел. 0

@Scruff 0 / 0 / 0 Регистрация: 24.09.2011 Сообщений: 7
	26.09.2011, 17:45 [ТС]	3
	Спасибо!!! 0

Опции темы

найти сумму двух чисел.

Решение