A\/Ā=1, поэтому =1\/В/\С=1
Всё что нам нужно это просто поделить количество яблок на количество школьников т.е. k/n - тогда мы получим результат, решение прикрепил скриншотом.
Тактильная вроде... Этр когда касаешься чего-либо
Uses crt;
type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел.
write('Введите кол-во элементов массива : '); readln(n);
for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' | ');
end;
readln;
end.
Program p;
var i: integer;
quest:array [1..2] of string;
ans:array [1..2] of string;
answ:array [1..2] of string;
begin
quest[1]:='20*2=';
quest[2]:='3*5=';
ans[1]:='40';
ans[2]:='15';
for i:=1 to 2 do begin
writeln ('Вопрос номер ', i);
writeln (quest[i]);
write ('Ваш ответ - ');
readln (answ[i]);
while answ[i]<>ans[i] do
begin
writeln ('Ответ неверный, попробуйте снова');
readln(answ[i]);
end;
writeln ('Ответ верный');
writeln;
end;
writeln ('Congrats');
end.
Пример:
Вопрос номер 1
20*2=
Ваш ответ - 40
Ответ верный
Вопрос номер 2
3*5=
Ваш ответ - 10
Ответ неверный, попробуйте снова
14
Ответ неверный, попробуйте снова
15
Ответ верный
Congrats