Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить тест из 3 вопросов на языке паскаль, с 3 вариантами ответа, и в конце составить процент верных и вывести оценку
90% < % -5
70-80% - 4
>60% -3
<60%-2

Ответ оставил Гость

Var x,y,z:longint;
begin
writeln( TEST);
writeln( выберите верный вариант ответа 1,2 или 3);
writeln( сюда вбиваешь вопрос );
writeln(1.сюда варианты ответов);
writeln(2.сюда варианты ответов);
writeln(3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln( сюда вбиваешь вопрос );
writeln(1.сюда варианты ответов);
writeln(2.сюда варианты ответов);
writeln(3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln( сюда вбиваешь вопрос );
writeln(1.сюда варианты ответов);
writeln(2.сюда варианты ответов);
writeln(3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write(ваша оценка 5);
if (y=2)then write(ваша оценка 3);
if (y=1)then write(ваша оценка 2);
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале