profile
Размещено 5 лет назад по предмету Информатика от vfhgj

Помогите решить срочно пожалуйста
Задача в pascal Цикл с условием
Первая задача:
S=1+2+3+4+.....+
вторая задача:
С клавиатуры вводятся целые числа 0 на конце,средние значение положительных чисел.

  1. Ответ на вопрос
    Ответ на вопрос дан Sky09
    Задание 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.
  2. Ответ на вопрос
    Ответ на вопрос дан archery
    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.


Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.