1,48810*10^2
14,8810*10^1
1488,10^-1
Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
if a[i]=1 then n:=n+1;
end;
writeln ('edinice=',n,' elements');
end.
Сделать домашнее задание. Сесть за стол, достать дневник, достать тетрадь, достать учебник, решить задачи. конец.
Ответ 4510
s=0
for i in 15..25
s+= i**2
end
p s
1 Кбайт = 1024 байт
a=3 * 27 - 11= 70
a>b значить c=5 * 70 - 11 = 339