Старая задачка)
8126+8126=16252
var c: real;
begin
readln(c);
writeln(c * 0.5 * c / 2);
end.
1)2 2)1 3)3 4)3 5)1 6)1 7)1 8)2 9)2 10) Цвет текста, размер текста, выравнивание.
11)для показания ошибок в правописании.
12)Изменения документа.
Вес равен одному байту
ответ а
Программу пришлось немного править, что б заработала
var
k, s: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s := 0;
for k := 1 to 10 do
s := s + Dat[k];
writeln(s);
end.
Вывод
76