2 раза выведет
будет выведено -10-9 (причем слитно)
Var a2,a,c,sym:
integer;
begin
for a:=100 to 200 do begin
a2:=a;
while (a2<>0) do begin
c:=a2 mod 10;
a2:=a2 div 10;
end;
if (a mod 7 = 0 ) and ((c=1) or (c=4)) then sym:=sym+a;
end;
writeln('сумма чисел от sym=',sym);
end.
Можно посчитать руками. Но это не интересно.
Заметим, что G(n+1)=F(n)+G(n)=(F(n-1)-G(n-1))+(F(n-1)+G(n-1))=2F(n-1);
G(n+2) = 2F(n)
Аналогично, F(n+1)=F(n)-G(n)=-2G(n-1)
F(n+2)=-2G(n)
Тогда F(5)=-2G(3)=-4F(1)=-4; G(5)=2F(3)=-4G(1)=-4
G(5)/F(5)=1
// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>