Информатика - это основанная на использовании компьютерной техники дисциплина, изучающая структура и свойства информации, а также способы ее хранения, обработки и передачи.
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
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так
var a,b,k:integer;
begin
writeln('a, b, k:');
readln(a,b,k);
writeln('Каждый получит по ', (a+b) div (k+2),' гр.');
end.
Пример:
a, b, k:
15 20 4
Каждый получит по 5 гр.
Конечно в)
Рыбак с рыболовной сетью, паук с паутиной, а юзер с интернетом)