Перевод с Pascal на C++
Код:
var a, i, n, min: integer;
begin
readln (n) ;
min := 30001;
for i := 1 to n do
begin
readln (a) ;
if (a < min) and (a mod 7 = 0)
then min := a
end;
writeln (min) ;
end.
Заранее спасибо. |
| Grabber2006 |
10-04-2015 19:44 2494243 |
Код:
#include "stdafx.h"
#include <iostream>
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
long int a, i, n, min;
cin >> n;
min = 30001;
for (i=1; i<=n; i++)
{
cin >> a;
if ( (a < min) && ((a%7) == 0) ) min=a;
};
cout << min << "\n";
system ("pause");
return 0;
}
|
Grabber2006, Dev C++ не хочет работать так
|
| Grabber2006 |
10-04-2015 21:53 2494286 |
На что ругается?
|
Не хотите попробовать автоматический транслятор, вроде p2c? |
Grabber2006, потом на
Код:
int _tmain(int argc, _TCHAR* argv[])
и на
|
| Grabber2006 |
10-04-2015 22:15 2494303 |
Код:
#include <iostream>
using namespace std;
/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int main(int argc, char** argv)
{
long int a, i, n, min;
cin >> n;
min = 30001;
for (i=1; i<=n; i++)
{
cin >> a;
if ( (a < min) && ((a%7) == 0) ) min=a;
};
cout << min << "\n";
system ("pause");
return 0;
}
|
Grabber2006, Работает если стереть Спасибо вам большое
|
Время: 17:28.
© OSzone.net 2001-
