В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
HelpIVadim
HelpIVadim
22.05.2020 19:48 •  Информатика

• Задание 1) У исполнителя Гамма две команды, которым присвоены номера:

1. прибавь 5;

2. раздели на b

(b — неизвестное натуральное число; b ≥ 2).

Выполняя первую из них, Гамма увеличивает число на экране на 5, а выполняя вторую, делит это число на b. Программа для исполнителя Гамма — это последовательность номеров команд. Известно, что программа 11211 переводит число 40 в число 20. Определите значение b.

• Задание 2) Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите только число, основание системы счисления указывать не нужно.

4916, 1028, 10001112.

• Задание 3) Доступ к файлу table.xls, находящемуся на сервере ofis.com, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.

A) /

Б) ftp

B) com

Г) ://

Д) table.

Е) ofis.

Ж) xls

• Задание 4) В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&».

В таблице приведены за и количество найденных по ним страниц некоторого сегмента сети Интернет.

За Найдено страниц
(в тысячах)
Кровать | Стул 2900
Кровать & Стул 800
Кровать 1600

Какое количество страниц (в тысячах) будет найдено по за Стул?

Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за Задание 5) Ниже приведена программа, записанная на пяти языках программирования.

Бейсик Python
DIM s, t AS INTEGER
INPUT s
INPUT t
IF s < 9 OR t < 9 THEN
PRINT ‘YES’
ELSE
PRINT ‘NO’
ENDIF
s = int(input())

t = int(input())

if s < 9 or t < 9:

print("YES")

else:

print("NO")

Паскаль Алгоритмический язык
var s, t: integer;
begin
readln(s);
readln(t);
if (s < 9) or (t < 9)
then writeln('YES')
else writeln('NO')
end.
алг
нач
цел s, t
ввод s
ввод t
если s < 9 или t < 9
то вывод "YES"
иначе вывод "NO"
все
кон
С++
#include
using namespace std;
int main() {
int s, t;
cin >> s;
cin >> t;
if (s < 9 || t < 9)
cout << "YES";
else
cout << "NO";
return 0;
}

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

(9, 9); (9, 10); (8, 5); (11, 6); (–11, 10); (–5, 9); (–10, 10); (4, 5); (8, 6).

Сколько было запусков, при которых программа напечатала «YES»?

Показать ответ
Ответ:
long6
long6
28.11.2021 19:14

Я не могу загрузить файлы, но вот коды. Создай файлы и вставь

repeat_.pas:

program repeat_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

repeat

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

until n < k;

WriteLn('всего делителей - ', counter);

end.

while_.pas:

program while_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

while (k <= n) do

begin

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

end;

WriteLn('всего делителей - ', counter);

end.

0,0(0 оценок)
Ответ:
Gogogogh
Gogogogh
28.11.2021 19:14

Объяснение:

Программа для while

program whil;

var x,i,n:integer;

y:real;

 begin

   i:=1;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

   WHILE  (i<=x) DO

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

           Writeln (n,' делитель числа',x,' : ',y );

             end;

               i:=i+1

             end;

             Writeln ('Число делителей числа', x, ' : ',n)

 end.

Программа для repeat

program repeats;

var x,i,n:integer;

y:real;

 begin

   i:=0;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

     repeat

          i:=i+1;

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

            Writeln (n,' делитель числа',x,' : ',y );

             end;

                         end;

                 until i>=x;

                               Writeln ('Число делителей числа', x, ' : ',n)

           end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота