[решено] Перевод с Pascal на C++ - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Перевод с Pascal на C++ (http://forum.oszone.net/showthread.php?t=296808)

Va1enda

12-03-2015 19:27 2481851

Перевод с Pascal на C++

Здравствуйте, помогите пожалуйста перевести этот код в с++.
var S, K, A, B, N, rez:longint;
begin
readln (S, K, A, B);
if s*a=b then writeln (s*k)
else
begin
n:=1;
while n<1001 do
begin
if (abs(s*a-b)) mod n =0 then
begin
rez:=((b-s*a) div n) +s*k;
if (rez>=0) and (a>n*k) then
begin
writeln (rez);
halt;
end;
end;
inc (n);
end;
if n=1001 then writeln (-1);
end;
end.

mrcnn

13-03-2015 05:43 2482027

Код:

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

void main()

{

 int S, K, A, B, N, rez;

 scanf("%d", &S);

 scanf("%d", &K);

 scanf("%d", &A);

 scanf("%d", &B);

 if (s*a==b) printf("%d\n", s*k);

 else

 {

   n=1;

   while (n<1001) 

   {

     if (((abs(s*a-b)) % n) ==0) 

     {

       rez=((b-s*a) / n) +s*k;

       if ((rez>=0) && (a>n*k) )

       {

         printf("%d\n", rez);

         exit(0);

       }

     }

     n++;

   }

   if (n==1001) printf("-1\n");

 }

}

Время: 16:25.