Такая программа,хотелось бы чтобы при вводе да (при считывании b) запускался конте?
Такая программа,хотелось бы чтобы при вводе да (при считывании b) запускался конте??нер,но мне выдает что да-неизвестное имя.Программа в паскале.
var
a,b,c,d:string;
e,f,g,h:integer;
begin
write ('Здраствуй,как тебя зовут??');
read (a);
write ('Привет,');
write (a); write ('!');
write ('Сколько тебе лет?');
read (e);
if e>30 then write ('Мое уважение.')
else write ('Малявка!!!');
write ('Давай сыграем в игру??Я загадываю число,ты пытаешься отгадать?Числа от одного до 10!');
read (b);
if b= да then begin
randomize;
f := random (10);
read (g);
if g=f then write ('Ты угадал(а)!!!')
else ('Я победил :З');
end
end.
Если поможет пролайкаю и оценю как лучший ответ.
Гость
Ответ(ы) на вопрос:
Гость Var
a,b,c,d:string;
e,f,g,h:integer;
begin
write('Здраствуй,как тебя зовут??');
readln(a);
writeln('Привет, ',a);
write('Сколько тебе лет?');
readln(e);
if e>30 then writeln('Мое уважение.')
else writeln('Малявка!!!');
write('Давай сыграем в игру??Я загадываю число,ты пытаешься отгадать?Числа от 0 до 9!');
readln(b);
if b='да' then begin
randomize;
f := random (10);
Write('Вводи! '); Readln(g);
if g=f then writeln('Ты угадал(а)!!!')
else writeln('Я победил! :З загадано ',f);
end
end.
Не нашли ответ?
Похожие вопросы