1. mod - команда, при которой компьютер выводит на экран остаток (mOd, тип O - остаток :))
Это означает, что c= 500 mod 23 , c=17 - ответ
div - команда, при которой компьютер выводит на экран целое число от деления (dIv, типааа i - integer (число с английского) :))
Это означает, что a= 500 div 3 , a=166 - ответ
2. 5 -> 127
Можно составить алгоритм такой:
22122 - это порядок команд и ответ. Не трудно посчитать, как это получилось.
3. Длина цепочки ТОРГ равна 4, значит мы дублируем левый символ (Т).
У нас получается ТОРГТ, а оно не чётное, так как длина цепочки равна 5, значит добавляем к цепочке символ (М) в начало самой цепочки.
Получилось: МТОРГТ - ответ
BEGIN
err := 0; right := 0;
writeLn('Сейчас Вам будет предложен тест по сериалу "Кухня". ');
writeLn('К каждому вопросу два варианта ответа. ');
writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');
writeLn;
writeLn('Понравилась последняя серия Кухни?: ');
writeLn('1. Да');
writeLn('2. Очеень понравилась');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 1 then begin
WriteLn('Неправильно');
err := err + 1;
end
else begin
WriteLn('Правильно');
right:=right+1;
end;
writeLn;
writeLn('Жена Макса: ');
writeLn('1. Вика');
writeLn('2. Катя');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 1 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Любишь этот сериал?: ');
writeLn('1. Обожаю');
writeLn('2. Очееень :3');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
WriteLn('Правильных ответов: ', right);
WriteLn('Неправильных ответов: ', err);
END.
Я сделяль :3