Karus
5 год назад
Такая программа,хотелось бы чтобы при вводе да (при считывании 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.
Если поможет пролайкаю и оценю как лучший ответ.
ОТВЕТЫ
Голеевский
Aug 8, 2019
Var
a,b,c,d:string;
e,f,g,h:integer;
begin
write(Здраствуй,как тебя зовут);
readln(a);
writeln(Привет, ,a);
write(Сколько тебе лет);
readln(e);
if egt;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.
a,b,c,d:string;
e,f,g,h:integer;
begin
write(Здраствуй,как тебя зовут);
readln(a);
writeln(Привет, ,a);
write(Сколько тебе лет);
readln(e);
if egt;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.
193
Смежные вопросы: