В 16-ричной системе: 48656C6C6F21
Var
i, s: integer;
begin
s := 0;
for i := 15 to 25 do s := s + sqr(i);
Writeln('s=', s)
end.
Тестовое решение:
s=4510
***********************************
const
n = 10;
var
i, k: integer;
a: array[1..n] of integer;
begin
Randomize;
k := 0;
Write('Массив данных: ');
for i := 1 to n do
begin
a[i] := Random(26);
Write(a[i]:3);
if a[i] > 12 then k := k + 1
end;
Writeln(#13#10, 'k=', k)
end.
Тестовое решение:
Массив данных: 0 21 20 8 14 15 25 11 2 20
k=6
var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
end.
<span> Техника - создание чертежей
наука - Создание моделей каких либо
реклама - создание изображений на банерах, плакатах
сфера развлечений - реклама какого либо развлечения
медицина - ренген
производство - создание чертежей, проектов планов
обучение - Создание каких либо чертежей, графических моделей</span>
<span>11001 -----------------------------------</span>