ИЛЬЯ14112005
19.06.2020 16:12

Адания для самостоятельного выполнения «Поиск информации в сети Интернет» В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» – символ «&».
No1. Ниже приведены за и количество страниц, которые нашел поисковый сервер по этим за в некотором сегменте Интернета:
Пушкин | Лермонтов 5200
Пушкин & Лермонтов 300
Лермонтов 2100
Сколько страниц будет найдено по за Пушкин
No 2. Ниже приведены за и количество страниц, которые нашел поисковый сервер по этим за в некотором сегменте Интернета:
фрегат & эсминец 1000
фрегат 2000
эсминец 2500
Сколько страниц будет найдено по за фрегат | эсминец
No 3. Ниже приведены за и количество страниц в тысячах, которые нашел поисковый сервер по этим за в некотором сегменте Интернета:
мяч | игра 850
мяч 525
игра 475
Сколько страниц в тысячах будет найдено по за мяч & игра

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Chemist2001
07.06.2021 06:55
Как то так, можешь заменить так что бы ракета вверх двигалась.
Program raketa;
uses graphabc;
var i:integer;
begin
For i:=1 to 300 do begin
line (i+300,60,i+240,120);
line (i+240,120,i+240,360);
line (i+360,120,i+360,360);
line (i+240,360,i+360,360);
line (i+300,60,i+360,120);
line (i+240,210,i+210,240);
line (i+210,240,i+240,240);
line (i+360,210,i+390,240);
line (i+390,240,i+360,240);
circle (i+300,150,15);
circle (i+300,210,15);
circle (i+300,270,15);
line (i+240,360,i+180,450);
line (i+180,450,i+420,450);
line (i+420,450,i+360,360);
line (i+330,450,i+330,370);
line (i+300,450,i+300,365);
line (i+270,450,i+270,370);
ClearWindow;
end;
end.
end.
0,0(0 оценок)
Ответ:
Івасічка
07.02.2021 20:27
{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
   A:=1;  B:=1;
{ вывод последовательности на экран  }
   for i:=2 to n do
      begin
          C:=A;     A:=A+B;       B:=C; 
          writeln(i,'  ->  ',A,'/',B);
      end;
{ подсчет k - го члена  }
    k:=20;  A:=1;  B:=1;
    for i:=2 to k do 
       begin   
          C:=A;       A:=A+B;       B:=C;
       end; 
    writeln(k,' - ый элемент = ',A,'/',B); 
 end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота