Помогите пожалуйста с задачей в pascal
Приложения:
FRBI:
Может тебе на C++ приемлемо?
Нужно именно pascal
Это плохо. Я в нем овощ
Печально
Ответы на вопрос
Ответил petyaGavrikov
0
var n,i,f1,f2,f,s:integer;
begin
readln(n);
f1:=1; f2:=1;
s:=f1+f2;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
s:=s+f;
end;
writeln('s = ',s);
if s mod 2=0 then writeln('Да')
else writeln('Нет');
end.
Пример:
10
s = 143
Нет
begin
readln(n);
f1:=1; f2:=1;
s:=f1+f2;
for i:=3 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
s:=s+f;
end;
writeln('s = ',s);
if s mod 2=0 then writeln('Да')
else writeln('Нет');
end.
Пример:
10
s = 143
Нет
Новые вопросы