// A)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var Count := 2;
repeat
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
Count += 1
until Count = 40;
Write(f2)
end.
// B)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var m := ReadlnInteger();
repeat
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
until f2 > m;
Write(f2)
end.
// C)
begin
var f1 := BigInteger(1);
var f2 := BigInteger(1);
var S := f1;
repeat
S += f2;
var f := BigInteger(f1 + f2);
f1 := f2;
f2 := f;
until f2 >= 1000;
Write(S)
end.
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v{?} 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}
end
else if i mod 2<>0 then v:=v 1;{здесь тоже самое}
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
var s:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
s[i]:=random(401);
write(s[i]:5);
end;
writeln;
p:=1;
for i:=1 to n do
if (s[i] mod 2=0)and(i mod 2<>0)
then s[i]:=-s[i];
writeln('Измененный массив:');
for i:=1 to n do write(s[i]:5);
writeln;
end.
Пример:
Массив A:
75 55 240 33 312 98 126 88 161 123
Измененный массив:
75 55 -240 33 -312 98 -126 88 161 123