Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. паскаль

var  a, b: integer; begin  write('a = '); readln(a);   write('b = '); readln(b);   writeln('числа кратные 5 и не оканчивающиеся на 0 на отрезке от ', a, ' до ', b);   for a : = a to b do      if abs(a mod 10) = 5  then          write(a, ' ');   writeln; end.

#include < iostream>

 

using namespace std;

 

int main()

{

  int n;

  int i1=0,i2=0;

  cin> > n;

  for(int i=0; i< n; i++)

  {

  int a = rand()%11-5;

  if(a< 0)

    i1++;

  if(a> 0)

    i2++;

  }

  cout< < "> 0 - "< < i2< < endl< < "< 0 - "< < i1< < endl< < "! =0 - "< < i1+i2< < endl;

  system("pause");

}

 

p.s. можно решить не только через  turbo pascal.

 

turbopascal(может не верно)

 

var

a,n, i1, i2, i: integer;

begin

  n : = 42;

  for i: =1 to n do begin

  a: =random(11)-5;

  if a > 0 then

    i1 : = i1 + 1;

  if a < 0 then

    i2 : = i2 + 1;

  end;

  writeln(">   0-", i1);

  writeln("<   0-", i2);

  writeln("< > 0-", i1+i2);

end.

извини, но из языков программирования которые пишут на знаю только 1с и это как по мне издевательство

пишу на старом добром паскале

 

var a,b,min,max: real;

  read(a,b);

  if (a < b) then begin

      min: =a;

      max: =b;

      a: = (min+max)/2;

      b: =min*max;

  end

  else begin

      min: =b;

      max: =a;

      b: = (min+max)/2;

      a: =min*max;

  end;

  writeln(a,b);

end.