var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.
Ответ будет 1, т.к 0 v 1 или 1 v 1 будет всегда 1.
Program zadacha;
var
a,b,c:real;
begin
read(a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
write('yes');
end.
Program up1;
var q:integer;
begin
writeln('введите число');
read(q);
if q>0 then write('число больше 0') else write('число меньше 0');
end.
N = int(input()) # считываем число N
phi_previous = 0 # нулевое число Фибоначчи
phi = 1 # первое число Фибоначчи
for i in range(N - 1): # в цикле каждый раз находим следующее число Фибоначчи, 0 и 1 уже нашли, осталось провернуть цикл N - 1 раз
phi, phi_previous = phi + phi_previous, phi
print(phi if N > 0 else 0) # выводим ответ. Особый случай: если N = 0, то в phi находится первое число Фибоначчи, а не нулевое.