Вопрос Составьте программу по информатике

[паша1999]

напишите программу которая после запуска выведет следующий результат:

каждый

охотник

желает

знать,

где

сидит

фазан

(каждое слово с новой строки)

 

[tagir]

words = ["каждый", "охотник", "желает", "знать,", "где", "сидит", "фазан"]
for word in words:
print(word)

 

[Loner]

var
c:word;
begin
clrscr;
readln(c);
textcolor(c);
case c of
Каждый: writeln('Red'
Охотник: writeln('Orange'
Желает: writeln('Yellow'
Знать: writeln('Green'
Где: writeln('LightBlue'
Сидит: writeln('Blue'
Фазан: writeln('Magenta'
end;
textcolor(7);
readln;
end.

 

[Wasking]

На Паскале

program PrintPhrase;

begin
writeln('каждый'
writeln('охотник'
writeln('желает'
writeln('знать,'
writeln('где'
writeln('сидит'
writeln('фазан'
end.

 

[Некич]

print("каждый\nохотник\nжелает\nзнать,\nгде\nсидит\nфазан&#34 print("каждый", "охотник", "желает", "знать,", "где", "сидит", "фазан", sep="\n&#34