Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - [решено] Перевод с Pascal на C++

Ответить
Настройки темы
C/C++ - [решено] Перевод с Pascal на C++

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
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.
Заранее спасибо.

Отправлено: 18:32, 10-04-2015

 

Аватара для Grabber2006

Ветеран


Сообщения: 5064
Благодарности: 1155

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#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;
}

Отправлено: 19:44, 10-04-2015 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Grabber2006, Dev C++ не хочет работать так

Отправлено: 21:48, 10-04-2015 | #3


Аватара для Grabber2006

Ветеран


Сообщения: 5064
Благодарности: 1155

Профиль | Отправить PM | Цитировать


На что ругается?

Отправлено: 21:53, 10-04-2015 | #4


Ветеран


Сообщения: 1853
Благодарности: 146

Профиль | Отправить PM | Цитировать


Не хотите попробовать автоматический транслятор, вроде p2c?

Отправлено: 21:59, 10-04-2015 | #5


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Grabber2006,
Код: Выделить весь код
#include "stdafx.h"
потом на
Код: Выделить весь код
int _tmain(int argc, _TCHAR* argv[])
и на
Код: Выделить весь код
system ("pause");

Отправлено: 22:05, 10-04-2015 | #6


Аватара для Grabber2006

Ветеран


Сообщения: 5064
Благодарности: 1155

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#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;
}
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:15, 10-04-2015 | #7


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


Grabber2006, Работает если стереть
Код: Выделить весь код
system ("pause");
Спасибо вам большое

Отправлено: 22:34, 10-04-2015 | #8



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - [решено] Перевод с Pascal на C++

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод с Pascal на C++ Snake750 Программирование и базы данных 14 14-09-2015 04:48
C/C++ - [решено] Перевод с Pascal на C++ Va1enda Программирование и базы данных 1 13-03-2015 05:43
C/C++ - C/C++ - Перевод с Pascal на C andrew17 Программирование и базы данных 3 10-06-2014 16:45
C/C++ - Перевод с Pascal на C++ Ru1nN Программирование и базы данных 0 21-12-2011 22:45
C/C++ - Перевод с Pascal на C++ DimaZone88 Программирование и базы данных 0 13-05-2010 13:52




 
Переход