Решить в pascal цикл с условием первая : s=1+2+3+4++ вторая : с клавиатуры вводятся целые числа 0 на конце,средние значение положительных чисел.

msLolka msLolka    3   04.06.2019 13:10    2

Ответы
LOVEe12 LOVEe12  05.07.2020 13:26
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.
ПОКАЗАТЬ ОТВЕТЫ
zaprudnov98 zaprudnov98  05.07.2020 13:26
Задание 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика