Нужно! программа на pascalabc uses graphabc; var n, xr, yr: integer; begin setwindowsize(600, 400); readln(n); for var i : = 1 to n do begin setpencolor(rgb(random(256), random(256), random(; xr: =random(601); yr: =random(401); circle(xr, yr, random(31)); floodfill(xr, yr, rgb(random(((256)); end; end. выдает ошибку: program1.pas: встречено 'end', а ожидался идентификатор

Объяснение:

Program Xr:

var n,xr,yr:integer;

begin setwindowsize(600,400);

readln(n);

for var i := 1 to n do

begin

end

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

Пусть а - число правильных ответов, с - число неправильных ответов. тогда число вопросов, на которые ответы даны не были - 25-а-с 5*а-9*с=40 с у нас больше либо равно 1, тогда делаем методом подстановки, не забывая, что а - обязательно целое число. с=1 5а-9=40, 5а=49, а - число не целое, значит, не подходит. с=2 5а-18=40, 5а=58, а - число не целое, значит, не подходит. с=3 5а-27=40, 5а=67, а - число не целое, значит, не подходит. с=4 5а-36=40, 5а=76, а - число не целое, значит, не подходит. с=5 5а-45=40, 5а=85, откуда а =17. ответ: 17.