02:24 

point_black
Все, что живет в нашем воображении, может стать реальностью.
uses crt;
var
a,m,e,f,h,g,i,q,z,x,t,y,lol:string;
b,c,d,j,k,l,n,o,p,v,w,r,s,u:integer;
begin;
writeln('Хай, чувак, как тебя зовут? ');
readln (m);
if m='джигурда' then writeln ('Джигурде тут не рады!') else writeln('Здарова, ', m);

repeat;

writeln ('Хочешь поменять цвет фона?');
readln (e);
if e='да' then
repeat
writeln ('Какой цвет ты хочешь?');
readln (f);
if f='синий' then textbackground(1) else
if f='красный' then textbackground(4) else
if f='зеленый' then textbackground(2) else writeln ('Ошибка. Такого цвета в базе нет.');


writeln ('Хочешь поменять цвет фона?');
readln (e)
until e='нет';

writeln ('Хочешь поменять цвет текста?');
readln (h);
if h='да' then
repeat
writeln ('Какой цвет ты хочешь?');
readln (i);
if i='коричневый' then textcolor(6) else
if i='желтый' then textcolor(14) else
if i='темно-синий' then textcolor(9)
else writeln ('Ошибка. Такого цвета в базе нет.');
writeln ('Хочешь поменять цвет текста?');
readln (h)
until h='нет';

writeln ('Хочешь отчистить экран?');
readln (g);
if g='да' then clrscr;

writeln ('Хочешь повторить?');
readln (x);
until x='нет';
writeln ('Сыграем?');
readln (a);
while a='да' do
begin
repeat
b:=random(10);
c:=random(10);
writeln ('Первое число равно ', b, ' Второе число равно ', c);
if c=b then writeln ('Ты выйграл!') else writeln ('Не повезло...');
until b=c;
writeln ('Сыграем?');
readln (a);
end;
writeln('Продолжим? ');
readln (q);
if q='да' then
o:=0;
p:=0;
repeat
o:=o+1;
j:=random(10);
k:=random(10);
n:=j+k;
writeln(k, '+', j, '=...');
readln (l);
if l=n then begin writeln('Правильно');
p:=p+1; end
else
writeln('Правильный ответ: ', n);
writeln ('Хочешь повторить?');
readln (z);
until z='нет';
writeln ('Количество примеров ', o);
writeln ('Количество правильных ответов ', p);
writeln ('Попробуешь угадать число, загаданное компьютером? ');
readln (y);
if y='да' then begin
r:=0;
s:=0;
repeat

u:=random(10);
writeln ('Введи число...');
readln (w);
if w=v then begin writeln ('Угадал');
s:=s+1 end else writeln ('Не угадал');
r:=r+1;

writeln ('Загаданное число ', v);
writeln ('Еще раз?');
readln (lol);
until lol='нет';
end;
writeln ('Количество попыток ', r);
writeln ('Количество угаданных чисел ', s);

end.

URL
   

Синее небо *__*

главная