Информатика, опубликовано 2018-08-22 19:40:12 by Гость

Помогите пожалуйста!!! заполнить пропуски 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.