Предмет:
ИнформатикаАвтор:
kelly50Автор:
josafatfullerАвтор:
cedricАвтор:
nyasiae5t3Автор:
murphyАвтор:
saniya13Автор:
vincentzvxrprogram series
var i , n : integer;
var x , s : real ;
begin
write ('Ввести число n:');
readln (n) ;
s:=0;
for i:= 1 to n do
begin
write ('Ввести число x : ');
readln (x);
s: = s+x;
end:
writeln ('Сумма чисел - ' );
end.
Автор:
dwaynesnowprogram series;
var i,n:integer;
x,s:real;
begin
write ('Ввести число n: ');
readln (n);
s:=0;
for i:= 1 to n do
begin
write ('Ввести число x: ');
readln (x);
s:=s+x
end;
writeln ('Сумма чисел - ',s)
end.
Автор:
blaynem3z2Добавить свой ответ
Предмет:
ГеометрияАвтор:
biancaarmstrongОтветов:
Смотреть