3)запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : - id834878320210404 от BaBaika322 04.04.2021 20:35

Question

Информатика: 3)запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 15; n : = 0; while 50 s*s do begin s : = s - 1; n : = n + 2 end; writeln(n) end.

BaBaika322 · Accepted Answer

Program Dafnochka;
uses crt;
var
r,sum: real;
k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
sum:=0;
k:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
    begin
      write("Ввод:") ;
      readln (r);
      sum:=sum+r;
      k:=k+1;
    end;
writeln();
writeln('Всего введено ',k-1,' чисел');
writeln('Среднее значение равно ',sum/(k-1));
end.

Проверено - работает на Паскаль АВС

3)запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 15; n : = 0; while 50 < s*s do begin s : = s - 1; n : = n + 2 end; writeln(n) end.

MOGZ ответил