Дана программа на языке программирования Паскаль. Запиши данную программу и запусти.

uses crt;

var

mas, A: array[1..10] of real;

begin

clrscr;

mas[1]:=13;

mas[5]:=31;

mas[9]:=79;

A[1]:=(mas[9]-mas[1])*mas[5];

write(A[1]:5:0);

readkey;

end.

0,25 Кбайт=256 байт=> 0,25 Кбайт> 200 байт
3 байта= 24 бита, т.к 3 байта= 24 бита
2560 битов < 2,5 Кбайта, т.к 2,5 Кбайта= 20000 бит
1000 Кбайт= 1 Мбайт, т.к 1000 Кбайт=1 Мбайт, а 1 Мбайт=1 Мбайт
8192 байта > 8 Кбайт, т.к 8192 байта= 8,192 Кбайта

Ответ: S = 37


S = 4
Цикл от 3 до 8, к s прибавляется текущий параметр цикла.
S+3+4+5+6+7+8=37

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыМатем";

ПЕР
  массив: РЯД 20 ИЗ ЦЕЛ;
  сч, сумма: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100))
  КОН;
  сумма := 0;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] ОСТАТОК 5 = 0 ТО УВЕЛИЧИТЬ(сумма, массив[сч]) КОН
  КОН

КОН Задание.