Ответ:
в дату нужно написать третье
во время второе
во стоимость первое
вроде все
Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,
Var
i,n:integer;
s,t:real;
begin
Write('n='); Readln(n);
s:=0;
for i:=1 to n do begin
Read(t);
s:=s+t*t
end;
Writeln('Сумма квадратов равна ',s)
end.
<u>Пример</u>
n=5
-23.1 42.6 146 0 0.12
Сумма квадратов равна 23664.3844