SM
Serega Molot

Помогте составить программу в Паскаль

Составить программу, реализующую эпизод сказки: машина спрашивает, куда пойдет герой, и в зависимости от ответа (налево – (-1), прямо – 0, направо – 1), печатает, что произойдет с героем.

МР
Максим Русаков

Program aaa;
var i:integer;
begin
writeln('Что произойдет с героем? (налево – (-1), прямо – 0, направо – 1');
readln(i);
if i = -1 then wrtieln('<тут пиши что поизойдет с героем>'); {Если он пойдет налево}
if i = 0 then wrtieln('<тут пиши что поизойдет с героем>') ; {Если он пойдет прямо}
if i = 1 then wrtieln('<тут пиши что поизойдет с героем>'); {Если он пойдет направо}
readln;
end.

Похожие вопросы
Составить программу для паскаль
Паскаль. Составить программу
Составить программу в Паскале.
составить программу на Паскаль
составить программу на паскале
Как составить программу на Паскале?
как составить программу в паскале
Составить программу в Паскаль
Составить программу в паскале!
Составить программу на паскале: