1. Однажды за круглым столом оказались пятеро ребят из Москвы, Санкт-Петербурга, Новгорода, Перми и Томска: Юра, Толя, Леша, Коля и Витя. Москвич сидел между Томичем и Витей, петербуржец – между Юрой и Толей, а напротив него сидели пермяк и Алеша. Коля никогда не был в Санкт-Петербурге, а Юра не был в Москве и Томске, Томич с Толей регулярно переписываются. Определить в каком городе живет каждый из ребят? 2. Приведены за к поисковой системе: а) Умножение & Вычитание & Сложение б) (Умножение & Вычитание) | Сложение в) (Умножение | Вычитание) & Сложение г) Умножение | Вычитание | Сложение Представьте результаты выполнения этих за графически с кругов Эйлера. Расположите коды за слева направо в порядке возрастания. 3. От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки Морзе: •––•••–••––••–••–•–– При передаче радиограммы было потеряно разбиение на буквы, но известно, что в радиограмме использовались только следующие буквы: А Д Ж Л Т •– –•• •••– •–•• – Расшифруйте радиограмму. Запишите в ответе расшифрованную радиограмму. 4. Реферат, набранный на компьютере, содержит 16 страниц, на каждой странице 50 строк, в каждой строке 64 символа. Для кодирования символов используется кодировка Unicode, при которой каждый символ кодируется 16 битами. Определите информационный объём реферата. 5. Файл размером 1500 Кбайт передаётся через некоторое соединение в течение 75 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 50 секунд.
Ответы
Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Мысленное объединение однородных объектов Укажите правильный вариант ответа: Синтез Обобщение Рассуждение Анализ
Автор: fominovaVladislav1346
ТАБЛИЦА ИСТИННОСТИ ПО ИНФОРМАТИКЕ
Автор: Стародубцева_Васильевич485
Решить нужно решение словесное описание алгоритма сложения двух обыкновенных дробей a/b и c/d
Автор: D.Yu. Polina1703
Визначте скільки бітів та байтів в слові "процесор" при 8 бітному кодуванні?
Автор: Aleksandr72
На Python Напишите подробно
Автор: yakovlevasvetlanalvovna209
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.