Найти сумму целых положительных чисел из промежутка от а до в, кратных 4 (значения переменных а и в вводчтся с клавиатуры это !

на с++:

 

int a = 0, b = 0, sum = 0;

float per = 0;

cin < < a;

cin < < b;

for (i=0; i< =b-a; i++)

{

per = (a+i)/4;

if ( per == (int) per)

{sum = sum + a+i; }

}

Const n=4; { любое число n от 1 до 100000} var a: array [1..n] of integer;     b,min,max, s: integer;     proizvedenie: real; beginwriteln('введите n чисел');   for b: =1 to n do  read (a[b]);   for b: =1 to n do      write(a[b],' ');   min: =a[1];   max: =0;   for b: =1 to n do  begin  if a[b]> max then max: =a[b];   if a[b]< min then min: =a[b];   end;   proizvedenie: =max-min;   writeln;   writeln('minimum ',min,' ','maximum ',max,'   proizvedenie=   ',proizvedenie); readln; end.

Program asd; var a: array[1..100000] of integer; b,c,i,n,imax,imin: integer; f1,f2: text; begin  assign(f1,'input.txt'); assign(f2,'output.txt'); reset(f1); readln(f1,n); for i: =1 to n do begin read(f1,b); a[i]: =b; end; imax: =1; imin: =1; for i: =2 to n do if a[i]> a[imax] then imax: =i; for i: =2 to n do if a[i]< a[imin] then imin: =i; rewrite(f2); c: =a[imax]*a[imin]; write(f2,c); close(f1); close(f2); end.в папке с прогой надо создать два txt файла input, output.