- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
program hurma_by_kotobuben;
uses crt;
var a,b,c,d:integer;
begin
a:=0;
writeln('Тест: "ЛЮБИТЕ ЛИ ВЫ ХУРМУ?');
writeln(' ');
writeln('Вам кажется, что вы отвратительно выглядите, но тут кто-то делает вам комплимент. Ваша реакция?');
writeln('1. Вздрагиваете от неожиданности. Ведь вы думали, что находитесь в комнате в одиночестве.');
writeln('2. Вам приятно, но вы постараетесь это скрыть под напускным эпилептическим припадком');
writeln('3. Вы начинаете покрывать страстными поцелуями свое прекрасное тело');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вам оторвало голову пропеллером самолета. Как вы поступите?');
writeln('1.Упадете на взлетное поле, обливаясь кровью');
writeln('2.Смешно побежите прочь от самолета, махая руками, словно безголовая курица');
writeln('3.Постараетесь сохранять спокойствие');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('Вы принимаете душ и вдруг слышыте телефонный звонок. Ваши действия?');
writeln('1.Вы продолжаете мытся в душе, делая вид, будто намыливаете подмышки');
writeln('2.Смешно выбегаете из душа, размахивая руками');
writeln('3.Спрашиваете совета окружающих');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('У вас большые оттопыреные уши. Какой пункт вы выберете?');
writeln('1.Пункт 1');
writeln('2.Пункт 2');
writeln('3.Пункт 3');
read(d);
clrscr;
if d=1 then begin
a:=a+1
end;
if d=2 then begin
b:=b+1
end;
if d=3 then begin
c:=c+1
end;
writeln('ПОДВЕДЕМ ИТОГИ');
writeln();
if a>(b+c)/2 then begin
writeln('Вы независимы, мнение других о хурме для вас ничего не значит');
end;
if b>(a+c)/2 then begin
writeln('В непривычной ситуации вы можете растерятся и смешно побежать, размахивая руками');
end;
if c>(a+b)/2 then begin
writeln('Вы сангвиник, что бы это ни значило');
end;
end.
Follow us!