Помогите решить срочно пожалуйста

+ 0 -

Даша243444

09 дек. 2013 г., 15:54:13 (10 лет назад)

Задание 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.

+ 0 -

Т97К06

09 дек. 2013 г., 18:53:10 (10 лет назад)

1)
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.

+ 0 -

Alinaaskarova

09 дек. 2013 г., 20:21:34 (10 лет назад)

недописал задачи. допиши.

+ 0 -

Asan096

09 дек. 2013 г., 21:11:54 (10 лет назад)

в первом номере как задается последнее число?