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

June 2022 1 4 Report

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

Answers & Comments

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.

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

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.

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.

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.

Answers & Comments

napishite sochinenie na anglijskom 10 predlozhenij pro vash nightmare nachat mozhn

napishite pozhalujsta nebolshoj rasskaz 80 100 slov na anglijskom pro moskvu

2raznoschik piccy sebastyan ne gnushaetsya brat chaevye za smenu on uspevaet sdel

Help me please! I need some help...

1v drevnej greciigovoryatbyla demokratiya i vse reshali golosovaniem po kazhdom

napishite pozhalujsta nebolshoe soobshenie o chelovekekotoryj dobilsya svoego uspeha

raskrojte skobki 2 a2

napishite pozhalujsta summarnuyu solnechnuyu radiaciyu yuzhnogo urala i summarnuyu solnech

napishite pozhalujsta sochinenie na anglijskom yazyke pro vash lyubimyj film bukval

napishite programmu dlya pascalabc srochno dano 5 znachnoe chislo esli ono palindr

рекомендуемые вопросы

Helpful Links

Helpful Social