Ребята, программа Pascal.abc помогите пожалуйста, напишите мне схему как можно сделать цикл, например если я скажу нет, то мне ответят "а почему так?" А если я скажу да, то мне ответят "я так и знал(а)" даю 70 балов, мне не жалко, но только прошу мне правильную программу. Заранее спасибо : )
Какая разница? Мне программа нужна срочно, ты знаешь её?
я пока не понимаю, что вам нужно
вы хотите ввести строку (1 раз)
и получить ответ в зависимости от содержания введённой строки (1 раз)?
вы хотите ввести строку (1 раз)
и получить ответ в зависимости от содержания введённой строки (1 раз)?
Ну смотри, допустим у меня есть команда
writeln ('Ты любишь конфеты?');
readln (a1); {Я отвечаю "да" или "нет"}
{И если я отвечу да, то мне пишут }
writeln (''Я тоже их люблю'');
{А если я отвечаю нет, то допустим мне напишет}
writeln (''А почему ты их не любишь?'');
writeln ('Ты любишь конфеты?');
readln (a1); {Я отвечаю "да" или "нет"}
{И если я отвечу да, то мне пишут }
writeln (''Я тоже их люблю'');
{А если я отвечаю нет, то допустим мне напишет}
writeln (''А почему ты их не любишь?'');
Ответы на вопрос
Ответил valgrisa
2
Ответ:
program v;
var a1: string;
begin
writeln('Ты любишь конфеты?');
readln (a1);
if a1='да' then writeln ('Я тоже их люблю');
if a1='нет' then writeln ('А почему ты их не любишь?')
end.
Объяснение:
использован неполный условный оператор
if (если) условие then (то) действие
ответ вводить маленькими буквами
если введено что-нибудь кроме да или нет, то программа ничего не выведет
Новые вопросы
если нет, то а почему так?
если да, то я так и знал(а)