СОСТАВИТЬ ПРОГРАММЫ В ПАСКАЛЕ ABC,ИСПОЛЬЗУЯ ЦИКЛ WHILE. ПОМОГИИИТЕЕЕЕЕ:((((1.Вычислить...

Question

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

Answer 1

1)
program proba;
var x, y: real;
begin
x:=- 2;
while x<=2 do<br>begin
y:=sqr(-2.4*x)+5*x-3;
writeln ('y=', y);
x:=x+0.5;
end;
readln;
end.

Comments

2)

---

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

---

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.