Var a1,a2,a,s,k:real; n:integer;
begin
a1:=100; a2:=100;
s:=a1+a2;
n:=2;
write('k = ');
readln(k);
k:=k*1000;
while s<k do
begin
a:=a1+a2;
s:=s+a;
a1:=a2;
a2:=a;
n:=n+1;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 2
n = 6</span>
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
4) разговор по телефону, вы обмениваетесь данными с собеседником, двухсторонняя связь
Program qq;
uses crt;
var c,h,m:real;
begin
write('Введите количество секунд ');
read(c);
m:=c/60;
h:=c/3600;
writeln('В ',c,' секундах ',m,' минут');
writeln('В ',c,' секундах ',h,' часов');
end.