Нужен шаблон для теста

@Аперондо · Регистрация: 16.10.2006

loki, солнышко. Мне бы шаблончик для теста в Паскале. Пли-и-и-и-из. :oops:

Vourhey · 30.06.2007, 00:56

Pascal

var RightCount:byte;
answer:byte;
 
begin
RightCount := 0;
writeln('Для ответа на вопрос введите вариант правильного ответа и нажмите Enter');
writeln('Кто убил Кеннеди?');
writeln('1 - Я');
writeln('2 - Ты');
writeln('3 - Гейтс');
writeln('4 - Болт в кожаном пальто');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('Кто такой Зилибоба');
writeln('1 - Я');
writeln('2 - Ты');
writeln('3 - Гейтс');
writeln('4 - Не знаю');
readln(answer);
if (answer = 2) then inc(RightCount);
 
// тут еще 18 штук...копипэйсти :)
 
writeln('Количество правильных ответов: ', RightCount);
readln;
 
end.

@Аперондо 0 / 0 / 0 Регистрация: 16.10.2006 Сообщений: 14
		1
	Нужен шаблон для теста 29.06.2007, 22:48. Показов 7959. Ответов 1 Метки нет (Все метки) loki, солнышко. Мне бы шаблончик для теста в Паскале. Пли-и-и-и-из. :oops: __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Нужен шаблон для теста

Решение