даны два целых числа a и b (a

elizavetafilip2 elizavetafilip2    2   27.08.2019 04:10    1

Ответы
qwejajka qwejajka  14.08.2020 21:22
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
    S:=S+B*B;
WriteLn('S = ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
abdrahmanova136 abdrahmanova136  14.08.2020 21:22
Var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика