помогите с информатикой. пожалуйста. срочно.

+ 0 -

Nabor1997

18 сент. 2016 г., 23:49:39 (7 лет назад)

var a,b,i:integer;
begin
a:=0;
b:=1;
for i = 1 to 10
if (i mod 2) = 0 then
a:=a+i
else
b:=b*i;
end;
writeln (a);
wrireln (b);
end.



var a,i:integer;
begin
a:=0;
for i = 1 to 10
a:=a+i*i;
end;
writeln (a);
end.
 

+ 0 -

настямохитова

19 сент. 2016 г., 0:25:43 (7 лет назад)

procedure Second();
var
  a: byte;
  b, c: single;
begin
  c := 1;
  for a := 1 to 10 do
    if (a mod 2 = 0) then b += a
      else c *= a;
  writeln(b, System.Environment.NewLine, c);
end;

procedure Third();
var
  a: byte;
  b: longInt;
begin
  for a := 1 to 10 do
    b += sqr(a);
  writeln(b);
end;

begin
  Second;
  Writeln();
  Third;
end.