3), т. к. логическое "или" ложно только тогда, когда ложны оба высказывания
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Randomize;
case Random(1,3) of
1:Writeln('Скоро каникулы!');
2:Writeln('Надоела мне учеба!');
3:Writeln('Не хочу заниматься информатикой!')
end
end.
Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write('Зима');
if (A>2)and(A<6) then Write('Весна');
if (A>5)and(A<9) then Write('Лето');
if (A>8)and(A<=11) then Write('Осень');
End.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords.Count,' слов(а)')
end.
<u>Пример</u>
> А роза упала на лапу Азора
6 слов(а)
Выбирай точка с запятой, например:
echo "Hello World";