program dialogue;
var name,ans: string;
begin
writeln ('Как тебя зовут?');
readln(name);
writeln('Привет, ',name,'. А ты любишь читать? (д/н)');
readln (ans);
if ans='д' then write ('Хорошо! Книга - источник знаний');
if ans='н' then write ('Плохо, из книг можно узнать много интересного');
if (ans<>'д') and (ans<>'н') then write(name,' , ты ответил на вопрос некорректно.');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program dialogue;
var name,ans: string;
begin
writeln ('Как тебя зовут?');
readln(name);
writeln('Привет, ',name,'. А ты любишь читать? (д/н)');
readln (ans);
if ans='д' then write ('Хорошо! Книга - источник знаний');
if ans='н' then write ('Плохо, из книг можно узнать много интересного');
if (ans<>'д') and (ans<>'н') then write(name,' , ты ответил на вопрос некорректно.');
end.