TurboPascal

+ 0 -

Shopogolik

16 дек. 2014 г., 9:46:35 (9 лет назад)

program main;
var i,r,sum1,sum2:integer;
c:array[1..6] of integer;
d:array[1..8] of integer;
type mass=array[1..8] of integer;
type ms=array[1..6] of integer;
procedure sum4(b:ms;var s4:integer);
var j:integer;
begin
s4:=0;for j:=1 to 6 do if ms(b)[j] mod 4=0 then s4:=s4+ms(b)[j];
end;
procedure sum3(a:mass;var s3:integer);var j:integer;
begin
s3:=0;
for j:=1 to 8 do if mass(a)[j] mod 3=0 then s3:=s3+mass(a)[j];
end;
function dif(x,y:integer):integer;
begin
dif:=x-y;
end;
begin
for i:=1 to 8 do d[i]:=3*i+2;
for i:=1 to 6 do c[i]:=3*i+1;
r:=dif(sum4(c,sum1),sum3(d,sum2));
writeln(r);
end.

+ 0 -

DrPepsi

16 дек. 2014 г., 11:28:07 (9 лет назад)

что интересно, изменение s не даёт изменений в результате оО

+ 0 -

Yzhosan

16 дек. 2014 г., 12:24:35 (9 лет назад)

нашла ошибку, сейчас кину

+ 0 -

Аssassin

16 дек. 2014 г., 14:58:46 (9 лет назад)

Program a1;
Type mas=array[1..8] of byte;
Var c,d:mas;
Procedure vvod (var x:mas; n,t:byte);
var i:integer;
begin
For i:=1 to n do
x[i]:=3*i+t;
end;
Procedure pech (var x:mas; n:byte);
var i:integer;
Begin
For i:=1 to n do
write (x[i],' ');
writeln;
end;

+ 0 -

чижиха

16 дек. 2014 г., 17:20:10 (9 лет назад)

Function sum (x:mas; n,t:byte):byte;
var i,s:byte;
Begin
s:=0;
For i:=1 to n do
If x[i] mod t=0 then s:=s+x[i];
sum:=s;
end;
Begin
Vvod (C,6,1); pech (C,6);
Writeln;
Vvod (D,8,2); pech (D,8);
Writeln;
Write (sum(C,6,4)-sum(D,8,3));
end.

+ 0 -

Kellylove

16 дек. 2014 г., 18:45:37 (9 лет назад)

удали моё решение