Напишите в паскале программу, которая высчитает сумму четырех чисел, используя только две переменные.

Question

Информатика

Патрикий

27 ноября, 19:11

Напишите в паскале программу, которая высчитает сумму четырех чисел, используя только две переменные.

+3

Ответы (1)

Знаете ответ на вопрос?

Мирон · Answer 1

Program z1;

var

a, b: integer;

begin

a:=0;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

write (a) ;

end.

или

program z1;

var

a, b: integer;

procedure add;

begin

readln (b) ;

a:=a+b;

end;

begin

a:=0;

add () ;

add () ;

add () ;

add () ;

writeln (a) ;

end.