Вопрос по информатике:
Такая программа,хотелось бы чтобы при вводе да (при считывании 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.
Если поможет пролайкаю и оценю как лучший ответ.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.07.2018 16:44
- Информатика
- remove_red_eye 13089
- thumb_up 30
Ответы и объяснения 1
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.
- 07.07.2018 02:16
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.