сделать Информатику (Ограниченное время нужно), я не понимаю как это делать Задание 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Перевести на язык паскаль, составить программу
Автор: palosik7621
Соедини изображение и его двоичный код.
Автор: beyound2006193
Какими возможностями обладает интеллектуальный модем?
Автор: misie1974
Памагите информатика 1 вопрос
Автор: zagadka27
Какую модель называют информационной ответе
Автор: Vyacheslavovna240
А:=9 b:=a mod 5 b:=b*10 a:=b div 5 -3 a:=a+b
Автор: juliapierrat
5примеров на конъюкцию по информатике
Автор: anitanemtsewa
Три друга, Асхат, Эльдар и Айжан, решили сыграть одну интересную игру. Игра называется “Второй максимум”. Правило игры заключается в следующием. Каждый из игроков записывает число на бумаге не показывая другим. После этого они раскрывают какие числа написали. Побеждает тот кто написал второй максимум. При этом гарантируется что все числа различны.
Вводные данные: На первой строке даны 3 числа x, y, z (1 ≤ x, y, z ≤ 10^9). х число загадавший Асхат. у число загадавший Эльдар. z число загадавшая Айжан.
Выходные данные: Вывести Askhat если победил Асхат. Вывести Eldar если победил Эльдар. Вывести Aizhan если победила Айжан.
Пояснение Примера 1: Победил Эльдар по скольку он загадал число 2, которое больше числа 1 который загадал Асхат и меньше числа 3 которую загадала Айжан.
⁶