Паскаль

гугл в помощь

 

Там нет именно этого задания.

 

Какой паскаль?

 

Ну тип, abcd паскаль

 

program 123;
var a,b,c,d,e,q:integer;
begin
read(a,b,c,d,e,q);
q:=a+b+c+d+e;
write(q);
end.

 

program suma;
uses crt;
var
a,b,c,d,e,r:real;
begin
writeln('Введите 1,2,3,4,5 числа ');
readln(a,b,c,d,e);
r:=a+b+c+d+e;
writeln('Сумма чисел: ',r);
end.

Код

program suma;

uses crt;

var

a,b,c,d,e,r:real;

begin

writeln('Введите 1,2,3,4,5 числа ');

readln(a,b,c,d,e);

r:=a+b+c+d+e;

writeln('Сумма чисел: ',r);

end.

 

Спасибо, я написал свою, а батя девушки говорит мол не так.... А блин, оказывается я просто точку запятую забыл после writeln