Есть легенда, что когда-то, когда создавался APPLE, человек, который был организатором, поставил условие: <span>Я хочу, чобы до завтра вы придумали название для нашей компании, а иначе я назову её в честь своего любимого фрукта - яблока.
На следующий день, хорошего названия не последовало, вот так собственно и появилось название APPLE, а соответственно и эмблема.</span>
4 книги поместиться ище место будет смотря какой диск
Вроде сделал,работает верно, но проверить не помешало бы
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.