Пусть а - число правильных ответов, с - число неправильных ответов. тогда число вопросов, на которые ответы даны не были - 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.
Я так понял на паскале нужно написать? Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do A[i] := random(15); Writeln('Введите искомый элемент');Readln(n); k:=0;for i:=1 to 40 do Begin // Проверяем,совпадает ли очередной эл-нт массива с искомым //Если совпадает, то увеличиваем счетчик k if A[i] = n then k := k+1; End; Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;
write( A, ' ');
end;
end.