Question

Ребята, программа Pascal.abc помогите пожалуйста, напишите мне схему как можно сделать цикл, например если я скажу нет, то мне ответят "а почему так?" А если я скажу да, то мне ответят "я так и знал(а)" даю 70 балов, мне не жалко, но только прошу мне правильную программу. Заранее спасибо : )

Answer 1

Ответ:

program v;

var a1: string;

begin

writeln('Ты любишь конфеты?');

readln (a1);

if a1='да' then writeln ('Я тоже их люблю');

if a1='нет' then writeln ('А почему ты их не любишь?')

end.

Объяснение:

использован неполный условный оператор

if (если) условие then (то) действие

ответ вводить маленькими буквами

если введено что-нибудь кроме да или нет, то программа ничего не выведет