Помогите решить задачу с процедурой

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Напишите программу, состоящую из трех процедур и основной программы. Первая процедура организует ввод двух целых чисел X и Y, вторая проверяет их сумму, третья выводи результат. Используйте эти процедуры в основной программе. Используйте X и Y как глобальные переменные.

№1 | Автор: Lara_Kos | 2012-12-07, 19:13 | Репутация: [ + 0 ]

Quote (Lara_Kos)

вторая проверяет их сумму,

проверяет на что?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-12-09, 17:05 | Репутация: [ + 211 ]

не проверяет, а вычисляет, извиняюсь)))

№3 | Автор: Lara_Kos | 2012-12-10, 19:40 | Репутация: [ + 0 ]

var
sum,x,y:integer;
procedure ReadXandY();
begin
read(x,y);
end;
procedure SumXandY();
begin
sum:=x+y;
end;
procedure Result();
begin
writeln('X = ', x);
writeln('Y = ', y);
writeln('X + Y = ', sum);
end;
begin
ReadXandY();
SumXandY();
Result();
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2012-12-10, 20:00 | Репутация: [ + 211 ]

Помогите решить задачу с процедурой

Страница 1 из 1
1

прикладная математика