Ответы на вопрос:
PascalABC.NET
begin
Writeln('Нет ушей, а слышит', newline, 'Нету рук, а пишет.', newline);
while True do begin
var it := ReadString('Введите ответ:').ToLower;
if it = 'магнитофон' then begin
writeln('Молодец, ты угадал.');
break;
end
else
writeln('Ты не угадал, попробуй еще');
end;
end.
Популярно: Информатика
-
Щащашчщ30.09.2022 18:26
-
настячччч14.04.2022 09:01
-
Мила2001111.04.2021 15:59
-
бакир327.03.2020 09:25
-
orxanalizade89411.07.2020 18:06
-
sofisnow082606.11.2022 21:32
-
bauka07731.01.2022 16:17
-
Vika1507713.07.2020 09:22
-
leedercools14.04.2021 09:30
-
TeoRe10.08.2021 07:02