Регистрация
Vika0095
24.01.2020 19:45
Информатика
Есть ответ 👍

Яничего не понимаю! составьте программу! арифметические действия над числами пронумерованы так: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. дан номер действия n и вещественные числа a, b (b< > 0). выполнить над числами указанное действие и вывести результат. например, n=2, а=0,40, в=1,00. результат: а-в=-0,60. единицы длины пронумерованы так: 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр. дан номер единицы длины и длина отрезка в этих единицах (вещественное число). найти длину отрезка в метрах.

106
437
Посмотреть ответы 3

Ответы на вопрос:

rensatkontri
rensatkontri
4,5(65 оценок)

{ 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр.}var      units: integer;       value, factor: real; begin      write('введите значение - '); readln(value);       write('введите единицу измерения - '); readln(units);       case units of              1: factor : = 0.1;               2: factor : = 1000;               3: factor : = 1;               4: factor : = 0.001;               5: factor : = 0.01;       else              factor : = 1;       end;             writeln(value * factor, ' м'); end.

Olga1618
Olga1618
4,6(47 оценок)

var

  d: integer;

  a,b: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('введите номер операции '); readln(d);

  case d of

      1: writeln(a, ' + ', b, ' = ', a + b);

      2: writeln(a, ' - ', b, ' = ', a - b);

      3: writeln(a, ' * ', b, ' = ', a * b);

      4: begin

              if b < > 0 then

                  writeln(a, ' / ', b, ' = ', a / b)

            else

                  writeln('делить на 0 нельзя');

        end;

      else

            writeln('неизвестная операция');

  end;

end.

     

 

 

//вторая программа

 

var

  d: integer;

  a: real;

begin

  write('длина отрезка = '); readln(a);

  write('введите код единицы измерения '); readln(d);

  case d of

      1: writeln('длина отрезка ', a / 10, ' метр(а, ов)');

      2: writeln('длина отрезка ', a * 1000, ' метр(а, ов)');

      3: writeln('длина отрезка ', a, ' метр(а, ов)');

      4: writeln('длина отрезка ', a / 1000, ' метр(а, ов)');

      5: writeln('длина отрезка ', a / 100, ' метр(а, ов)');

      else

            writeln('неизвестная единица длины');

  end;

end.

Руфлер
Руфлер
4,4(51 оценок)

10000 байт

Объяснение:

N = 2^i

N = 16 символов

i = 4 бит (16 = 2^4)

I = K * i

K = 50 строк * 40 символов * 10 страниц = 20000 символов

I = 20000 * 4 = 80000 бит

80000 бит = 80000 / 8 = 10000 байт (1 байт = 8 бит)

10000 байт = 10000 / 1024 = 9,765625 Кбайт ≈ 9,77 Кбайт (1 Кбайт = 1024 байт)

Популярно: Информатика