Найдите значение выражения
a mod (b div c +5)-10, при a=100, b=20, c=3.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

у меня тоже даша получилось))

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.

в феврале 1946 года был создан первый компьютер.