Задание 1 uses crt; var s,n,i:integer; begin write('Введите число больше 1: '); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(s); end.
Задание 2 uses crt; var i,s,k:integer; begin writeln('Вводите числа. 0 - конец последовательности'); s:=0; k:=0; repeat readln(i); if i>0 then begin s:=s+i; inc(k); end; until i=0; writeln(s/k); end.
var
i, s, n: integer;
begin
read(n);
s := 0;
i := 0;
repeat
i := i + 1;
s := s + i;
until i >= n;
writeln(s);
end.
2)
var
i, s, k: integer;
begin
writeln(' чисел. Для окончания введите ноль');
s := 0;
k := 0;
repeat
readln(i);
if i > 0 then begin
s := s + i;
k := k + 1;
end;
until i = 0;
writeln(s / k);
end.
uses crt;
var s,n,i:integer;
begin
write('Введите число больше 1: ');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
Задание 2
uses crt;
var i,s,k:integer;
begin
writeln('Вводите числа. 0 - конец последовательности');
s:=0;
k:=0;
repeat
readln(i);
if i>0 then begin
s:=s+i;
inc(k);
end;
until i=0;
writeln(s/k);
end.