Вот вам простенький пример (набросал на Free Pascal).
читать дальше »
Код:
program zagadki;
uses crt;
var x,x1,x2,x3,x4:integer;
begin
clrscr;
textcolor(14);
writeln('Компьютерные загадки');
TextColor(9);
writeln('Монитор - это устройство для...информации?');
writeln ('1-Ввода');
writeln ('2-Вывода ');
readln(x);
TextColor(LightRed);
if x=2 then WriteLn('Правильно') else WriteLn ('Неправильно');
TextColor(9);
writeln('Какая память бывет в компьютере?');
writeln('1-Быстрая');
writeln('2-Оперативная');
writeln('3-Компьютерная');
writeln('4-Медленная');
readln(x1);
TextColor(LightRed);
if x1=2 then WriteLn('Правильно') else WriteLn ('Неправильно');
TextColor(9);
writeln('Принтер - это устройство...информации?');
writeln('1-Ввода');
writeln('2-Вывода');
readln(x2);
TextColor(LightRed);
if x2=2 then WriteLn('Правильно') else WriteLn ('Неправильно');
TextColor(9);
writeln('Как называется CD-Disk, который можно перезаписать?');
writeln('1- CD-R');
writeln('2- CD-ROM');
writeln('3- CD-RW');
readln(x3);
TextColor(LightRed);
if x3=3 then WriteLn('Правильно') else WriteLn ('Неправильно');
TextColor(9);
writeln('Чем отличается CD от CD-RW?');
writeln('1-Размером');
writeln('2-Возможностью перезаписи');
writeln('3-Качеством записи');
readln(x4);
TextColor(LightRed);
if x4=2 then WriteLn('Правильно') else WriteLn ('Неправильно');
Readkey;
end.
