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

СОСТАВИТЬ ПРОГРАММЫ В ПАСКАЛЕ ABC,ИСПОЛЬЗУЯ ЦИКЛ WHILE. ПОМОГИИИТЕЕЕЕЕ:((((
1.Вычислить сумму последовательности положительных чисел,введенных с клавиатуры.(Ввод оканчивается,как только введен 0).
2.Вычислить среднее арифметическое последовательности положительных чисел,введенных с клавиатуры.(Ввод оканчивается,как только введен 0).

  1. Ответ на вопрос
    Ответ на вопрос дан artark
    1)
    program proba;
    var x, y: real;
    begin
    x:=- 2;
    while x<=2 do
    begin
    y:=sqr(-2.4*x)+5*x-3;
    writeln ('y=', y);
    x:=x+0.5;
    end;
    readln;
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан artark
      2)
    2. Ответ на вопрос
      Ответ на вопрос дан artark
      2) program proba2; var x, y: integer; begin writeln ('vvodi + chisla'); readln (x); while x<>0 do begin if x>0 then y:=y+x; readln (x); end; writeln ('summa=', y); readln; end.
    3. Ответ на вопрос
      Ответ на вопрос дан artark
      3) program proba3; var x, y, n: integer; s: real; begin writeln ('vvodi + chisla'); readln (x); while x<>0 do begin if x>0 then begin n:=n+1; y:=y+x; end; readln (x); end; s:=y/n; writeln ('sr arif=', s); readln; end.
    4. Ответ на вопрос
      Ответ на вопрос дан artark
      4) program proba4; var x, y, n: integer; begin randomize; x:=random (10)+1; writeln (ugadai chislo ot 1 do 10 za 3 popitki'); while n<3 do begin readln (y); if y=x then begin writeln ('ugadal'); n:=3; end else writeln ('ne ugadal'); n:=n+1; end; readln; readln; end.
    5. Ответ на вопрос
      Ответ на вопрос дан artark
      4) program proba4; var x, y, n: integer; begin randomize; x:=random (10)+1; writeln ('ugadai chislo ot 1 do 10 za 3 popitki'); while n<3 do begin readln (y); if y=x then begin writeln ('ugadal'); n:=3; end else writeln ('ne ugadal'); n:=n+1; end; readln; readln; end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 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) их не спросили

Информация

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