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
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86
2^i=64
i=6 бит
Ответ: 6 бит.
Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(361)+40;
write(a[i]:5);
end;
writeln;
s:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then s:=s+a[i];
writeln('s = ',s);
end.
Пример:
<span> 346 213 87 382 165 184 278 261 124 233
s = 165</span>
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.