Ответы
Ответ дал:
1
Ответ:
begin
var S:string;
var N: char;
writeln('Как тебя зовут?');
readln(S);
writeln('Привет, ',S,'. А ты любишь читать? (д/н)');
readln(N);
case N of
'д': write ('Хорошо! Книга - источник знаний.');
'н': write ('Плохо, из книг можно узнать много интересного.');
else write (S,', ты ответил на вопрос некорректно.');
end;
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад