Помогите пожалуйста составить тест с помощью языка паскаль
Разработчиком языка Паскаль является: 1)Блез Паскаль2)Николас Вирт 3)Норберт Винер Надо так, чтобы при вводе ответа он писал верно, и не верно. Хотя бы шаблон напишите
Разработчиком языка Паскаль является: 1)Блез Паскаль2)Николас Вирт 3)Норберт Винер Надо так, чтобы при вводе ответа он писал верно, и не верно. Хотя бы шаблон напишите
var
otvet : byte;
begin
writeln('первый вопрос (ввести номер варианта ответа) ');//предположим, верный вар. 2
writeln('вариант 1');
writeln('вариант 2');
writeln('вариант 3');
writeln('вариант 4');
readln(otvet);
if onvet = 2
then writeln('верно')
else writeln('не верно');
//и аналогично для остальных вопросов.
end.
Uses crt;
var
a, b: real;
begin
b:=2;
writeln('Ðàçðàáîò÷èêîì ÿçûêà Ïàñêàëü ÿâëÿåòñÿ: 1)Áëåç Ïàñêàëü 2)Íèêîëàñ Âèðò 3)Íîðáåðò Âèíåð');
read(a);
if a=b then write('Âåðíî.');
if a=1 then write('Íåâåðíî.');
if a=3 then write('Íåâåðíî.')
end.
рада бы Вам помочь, но ...