Написать программы. программа-льстец. на экране появляется вопрос "кто ты: мальчик или девочка? введите д или м". в зависимости от ответа должен появиться текст " мне нравятся девочки! " или " мне нравятся мальчики! "
Var a:string; begin writeln('Кто ты: мальчик или девочка?'); readln(a); if (a='Д') or (a='д') then writeln('Мне нравятся девочки! '); if (a='М') or (a='м') then writeln(' Мне нравятся мальчики! '); end.
a:string;
begin
writeln('Кто ты: мальчик или девочка?');
readln(a);
if (a='Д') or (a='д') then
writeln('Мне нравятся девочки! ');
if (a='М') or (a='м') then
writeln(' Мне нравятся мальчики! ');
end.