Помогите пожалуйста!!! заполнить пропуски procedure solution(n: byte; var s: integer); var i: byte; a: integer; begin s := 10; for i := 1 to n do begin a := -20 + random(41); write(a:5); __ := s + sqr(a) end; writeln end; var n...
Помогите пожалуйста!!! заполнить пропуски
procedure solution(n: byte; var s: integer);
var
i: byte;
a: integer;
begin
s := 10;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
__ := s + sqr(a)
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(__)
end.
Гость
Ответ(ы) на вопрос:
Гостьprocedure solution(n: byte; var s: integer);
var
i: byte;
a: integer;
begin
s := 10;
for i := 1 to n do
begin
a := -20 + random(41);
write(a:5);
s := s + sqr(a);
end;
writeln
end;
var
n: byte;
p: integer;
begin
randomize;
write('n? ');
readln(n);
solution(n, p);
writeln(p)
end.
Не нашли ответ?
Похожие вопросы