A04 это сколько по информатике? ​

1. информацию в бытовом смысле чаще всего понимают как: а. всевозможные сведения, сообщения, знания; 2. самую высокую информационную нагрузку несет канал: г. зрения; 3. для восприятия информации человек использует:   в. все каналы; 4. примером числовой информации может служить: б. цены на товарах; г. таблица умножения; 5. носителем текстовой информации является… а. книга, написанная на любом языке; 6. информация по способу ее восприятия человеком подразделяется на: д. зрительную, слуховую, тактильную, обонятельную, вкусовую, мышечную, вестибулярную. 7. информация по форме представления подразделяется на: а. текстовую, числовую, графическую, музыкальную, комбинированную;

1).

program undm;

uses

crt;

var

i, a, b: real;

begin

writeln('Введите сначала первое число , затем второе:');

readln(a, b);

if a < b then

a := a * 2

else

a := b * 2;

writeln(a);

readln;

end.

2).

program yotx;

uses

crt;

function yotx(x: real) : real;

begin

if x <= 1 then

yotx := 0

else

yotx := 1 / (x + 6);

end;

var

x: real;

begin

writeln('Введите x:');

readln(x);

writeln(yotx(x));

readln;

end.

3).

program pp;

uses

crt;

var

x: real;

begin

writeln('Введите x:');

readln(x);

if (x >= 2) and (x <= 3) then

writeln('X принадлежит промежутку')

else

writeln('X не принадлежит промежутку');

readln;

end.

4).

program co;

uses

crt;

var

ocenka: integer;

begin

writeln('Введите оценку:');

readln(ocenka);

case ocenka of

1: writeln('Плохо');

2: writeln('Неудовлетворительно');

3: writeln('Удовлетворительно');

4: writeln('Хорошо');

5: writeln('Отлично') else writeln('Ошибка! Введите число от 1 до 5');

end;

readln;

end.