Ответы
Ответ дал:
0
var
a, b: integer;
begin
for a := 1 to 10 do
b += a * a;
writeln(b);
end.
a, b: integer;
begin
for a := 1 to 10 do
b += a * a;
writeln(b);
end.
Ответ дал:
0
Это перешло в Паскаль с его адаптацией под .NET, позволяет сразу приварить к переменной некоторое значение... Аналогично
+=
-=
*=
/=
+=
-=
*=
/=
Ответ дал:
0
var x,s: integer;
begin
for x := 1 to 10 do
s:= s+x*x;
writeln('Сумма равна ',s);
end.
begin
for x := 1 to 10 do
s:= s+x*x;
writeln('Сумма равна ',s);
end.
Ответ дал:
0
а не надо добавлять после begin что s:=0;
Ответ дал:
0
да? спасибо
Ответ дал:
0
Да, точно)) Можешь добавить в новой версии, хуже не будет. Результат работы одинаков будет.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
10 лет назад
10 лет назад