Запишите на языке Паскаль программу, которая формирует и
выводит на экран строку символов, коды которых равны 1055,
1040, 1057, 1050, 1040, 1051, 1068.
Указание: достаточно объявить одну переменную строкового типа типа (но может быть и другой вариант, как сработает ваше направление мысли). В эту переменную занести сумму символов которым соответствуют данные коды. Чтобы определить символ по его коду используем функцию chr, аргумент функции – число (код), например chr (1020).

1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
   n:integer;
   s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do 
   begin
   s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
   n:=n+1
end;
writeln(n)
end.

2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
   begin
   s:=exp(n)-1000*Ln(n);
   n:=n+1
   end;
writeln(n)
end.

Выясняем какое количество строк будет 2% от общего числа строк в каждой программе.
2% от 9000=180
Получается, что для каждого вируса он должен написать 180 строк кода.
На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода. Выше мы выяснили сколько какое количество строк должен написать хакер для каждой из программ. А теперь выясним, какое количество строк он должен написать для всех программ на 1 компьютере, умножаем это количество на общее число вирусов, которых должен взломать хакер
180*37=6660
Далее, выясняем сколько вирусов должен написать хакер для всех компьютеров.
37*40=1480
Выясняем, общее число строк вирусного кода, которых должен написать хакер для всех программ на всех 40 компьютерах.
6660*40=266400
ответ: 1)1480 вирусов, 266400 строк кода