Program NoName;
var
a:array [1..3000] of integer;
b,c,i,n:integer;
Begin
WriteLn('введіть кількість чисел');
ReadLn( n );
a[1]:=1;
a[2]:=1;
b:=0;
WriteLn('Список ',n,' чисел Фібоначі');
WriteLn(a[1]);
WriteLn(a[2]);
for i:= 3 to n do
begin
a[i]:=a[i-2]+a[i-1];
b:=b+a[i];
WriteLn(a[i]);
end;
b:=b+a[1]+a[2];
WriteLn('Сума усіх чисел Фібоначі становить ',b);
end.
1) A='Q' -<em>cимвольный.</em>
2) B=5 - <em>целый.</em>
3) С= 45. - <em>вещественный.</em><em />
4) D = True - <em>логический.</em>
Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. Затем выведем все элементы, для которых это оказалось правдой.
Pascal
var
i, j, n: integer;
flag: boolean;
a: array[1..10000] of integer;
b: array[1..10000] of boolean;
begin
read(n);
for i := 1 to n do
begin
read(a[i]);
b[i] := true;
end;
b[n] := false;
for i := 1 to n - 1 do
if b[i] then
begin
flag := true;
for j := i + 1 to n do
if a[i] = a[j] then
begin
flag := false;
b[j] := false;
end;
if flag then
b[i] := false;
end;
for i := 1 to n do
if b[i] then
write(a[i], ' ');
end.
Ответ:
program HappyTicket;
uses
SysUtils;
var
n1, n2, m1, m2, i, c: Integer;
s: string;
begin
Write ('Введите два номера билета: ');
ReadLn (n1, n2);
if (n1 > 100000) and (n1 < 999999) and (n2 > 100000) and (n2 < 999999) then begin
c := 0;
for i := n1 to n2 do begin
s := IntToStr (i);
m1 := StrToInt (s [1]) + StrToInt (s [2]) + StrToInt (s [3]);
m2 := StrToInt (s [4]) + StrToInt (s [5]) + StrToInt (s [6]);
if m1 = m2 then begin
Write (s, ' '); // для проверки выводятся все билеты. после убрать
Inc (c);
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
end else
WriteLn ('Номера не шестизначные');
ReadLn;
end.