Помогите пожалуйста 6 задание
Очень срочно
Приложения:
Ответы на вопрос
Ответил AnonimusPro
0
var s,t: string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ',s,'. А ты любишь читать?(д/н)');
readln(t);
case t of
'д': write('Хорошо! Книга - источник знаний.');
'н': write('Плохо, из книг можно узнать много интересного.');
else write(s,', ты ответил на вопрос некорректно.');
end;
end.
apolka:
У меня везде пишет что я ответила на вопр некорректно
Наверно что то не так
А вот такой код подходит: var s,t: string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ',s,'. А ты любишь читать?(д/н)');
readln(t);
if t='д'then write('Хорошо! Книга - источник знаний.')
else if t='н' then write('Плохо, из книг можно узнать много интересного.')
else write(s,', ты ответил на вопрос некорректно.');
end.
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ',s,'. А ты любишь читать?(д/н)');
readln(t);
if t='д'then write('Хорошо! Книга - источник знаний.')
else if t='н' then write('Плохо, из книг можно узнать много интересного.')
else write(s,', ты ответил на вопрос некорректно.');
end.
var s,t: string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ',s,'. А ты любишь читать?(д/н)');
readln(t);
if t='д' then write('Хорошо! Книга - источник знаний.')
else if t='н' then write('Плохо, из книг можно узнать много интересного.')
else write(s,', ты ответил на вопрос некорректно.');
end.
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Привет, ',s,'. А ты любишь читать?(д/н)');
readln(t);
if t='д' then write('Хорошо! Книга - источник знаний.')
else if t='н' then write('Плохо, из книг можно узнать много интересного.')
else write(s,', ты ответил на вопрос некорректно.');
end.
Новые вопросы