N = int(input("n = "))
for i in range(0,n+1):
print (i)
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши
1.В марте у нас будут каникулы.2.Это был великан.3.В дороге Громова застал буран.4.На Камчатек много гейзеров.5.Караван двигался по барханам.6.Вдали появились айсберги.7.Однажды мы заблудились в лесу.8.Мы возобновили переписку.9.Муму привязалась к Герасиму.10.Месяц спутя геологи уехали.
267810/3=89270 остаток 0
89270/3=29756 ост.2
29756/3=9918 ост.2
9918/3=3306 ост.0
3306/3=1102 ост.0
1102/3=367 ост.1
367/3=122 ост. 1
122/3=40 ост. 2
40/3=13 ост. 1
13/3=4 ост 1
4/3=1 ост1
<span>267810</span>₁₀=111121100220₃
Var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
<span>1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009</span>