сделать Информатику (Ограниченное время нужно), я не понимаю как это делать Задание 1.Информационный объект - "Детский сад" выявить существенные признаки (данные) объекта выявить существенные признаки (данные) объекта необходимые для родителей ребенкаЗадание 2."Подводятся результаты спортивных соревнований"Выделить информационные процессы: сбор, обработка, хранение и передача данных и объяснить ихЗадание 3.Закодировать 5 операторов сотовой связи, количество бит для кодирования должно быть минимальным.Задание 4.Приведите примеры ситуаций, в которых информация а) копируется; б) воспринимается; в) измеряется; г) принимается; Задание 5 Привести пример информации, которую вы получили в колледже. Задание 6Сколько различных символов, закодированных байтами, содержится в сообщении: 1101001100011100110100110001110001010111 ? Задание 7Реферат студента по информатике имеет объем 20 Кбайт. Каждая страница реферата содержит 32 строки по 64 символа в строке, мощность алфавита - 256. Сколько страниц в реферате?
Ответы
Var b,c:boolean;
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.
var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.
var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.
var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.
var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.
var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.
var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составить программу на паскале.
Автор: AleksandraRuslan504
Які основні методи форм ви знаєте
Автор: polina0075880
Что изменяется в процессе редактирования текста
Автор: Kalashnikova
. ОЧЕНЬ НУЖНО. Заранее благодарю!
Автор: Картузов-Алексей1252
Запиши в порядке возрастания
Автор: elmira01048775
Надо если сможете скиньте документ в vk axun2001 ссылка туда . 50
Автор: kolefe22171
Три друга, Асхат, Эльдар и Айжан, решили сыграть одну интересную игру. Игра называется “Второй максимум”. Правило игры заключается в следующием. Каждый из игроков записывает число на бумаге не показывая другим. После этого они раскрывают какие числа написали. Побеждает тот кто написал второй максимум. При этом гарантируется что все числа различны.
Вводные данные: На первой строке даны 3 числа x, y, z (1 ≤ x, y, z ≤ 10^9). х число загадавший Асхат. у число загадавший Эльдар. z число загадавшая Айжан.
Выходные данные: Вывести Askhat если победил Асхат. Вывести Eldar если победил Эльдар. Вывести Aizhan если победила Айжан.
Пояснение Примера 1: Победил Эльдар по скольку он загадал число 2, которое больше числа 1 который загадал Асхат и меньше числа 3 которую загадала Айжан.
⁶