4. Определите значение переменных s и i после выполнения фрагмента программы
s:=0;
i:=0;
while i<5 do
begin
i:=i+1;
s:=s+i;
end;​

Основные этапы развития вычислительной техники Самая популярная классификация предлагает выделить основные этапы развития вычислительной техники по хронологическому принципу: Ручной этап. Он начался на заре человеческой эпохи и продолжался до середины XVII столетия. В этот период возникли основы счёта. Позднее, с формированием позиционных систем счисления, появились при счёты, абак, позднее - логарифмическая линейка), делающие возможными вычисления по разрядам. Механический этап. Начался в середине XVII и длился почти до конца XIX столетия. Уровень развития науки в этот период сделал возможным создание механических устройств, выполняющих основные арифметические действия и автоматически запоминающих старшие разряды. Электромеханический этап – самый короткий из всех, какие объединяет история развития вычислительной техники. Он длился всего около 60 лет. Это промежуток между изобретением в 1887 году первого табулятора до 1946 года, когда возникла самая первая ЭВМ (ENIAC). Новые машины, действие которых основывалось на электроприводе и электрическом реле, позволяли производить вычисления со значительно большей скоростью и точностью, однако процессом счёта по-прежнему должен был управлять человек. Электронный этап начался во второй половине столетия и продолжается в наши дни. Это история шести поколений электронно-вычислительных машин – от самых первых гигантских агрегатов, в основе которых лежали электронные лампы, и до сверхмощных современных суперкомпьютеров с огромным числом параллельно работающих процессоров одновременно выполнить множество команд. Этапы развития вычислительной техники разделены по хронологическому принципу достаточно условно. В то время, когда использовались одни типы ЭВМ, активно создавались предпосылки для появления следующих. - Читайте подробнее на SYL.ru: https://www.syl.ru/article/169938/new_istoriya-razvitiya-vyichislitelnoy-tehniki-otechestvennaya-vyi...

1)
var A,B: array[1..200] of real;
N, i: integer;
begin
write('Введите количество элементов массивов A и B: ');
readln(N);
writeln('Введите значения элементов массива A');
for i:=1 to N do read(A[i]);
writeln();
for i:= 1 to N do
if (i mod 2 = 0) then B[i]:=i*A[i]
else B[i]:=-A[i];
writeln('Массив В:');
for i:=1 to N do write(B[i]:2:2,' ');
end.

2)
var A: array[1..200] of integer;
N, i: integer;
begin
write('Введите количество элементов массива A: ');
readln(N);
randomize;
for i:=1 to N do
    A[i] := random(86)-15;
writeln('Массив А: ');
for i:=1 to n do write(A[i], ' ');
end.