The car is perfect, but the world has changed
Группа: Пользователи
Страна проживания:
Уважение: 42 (100%)
Предупреждения: (0 из 3)
|
Вот превая задача, насколько понял ее я. Правда код на С++, Паскаля я не знаю, сейчас попробую сконвертить:
Скрытый текст: | Код на С++ #include «iostream» #include «math.h» using namespace std; void main(){ setlocale(LC_ALL,«.1251»); int result, number, modik; cout<<«Введите число»<<endl; cin>>number; modik=number%5; if(modik!=0){ cout<<«Возведение в квадрат будет выполнено обычным способом.»; result=number*number; } else{ cout<<«Число кратно пяти и будет возведено в квадрат новым способом»; result=number/10; number=result+1; result=result*number*100; result=result+25; } cout<<result; } |
Скрытый текст: | Код на Паскале program first; var result, number, modik: integer; begin writeln('Введите число:'); readln(number); modik = number mod 5; if modik != 0 then { writeln('Возведение в кадрат будет выполнено обычным способом:'); result=number*number; } else { writeln('Число кратно 6 и возведение будет выполнено новым способом:'); result=number/10; number=result+1; result=result*number*100; result=result+25; } writeln('Возведенное число:'); writeln(result); end. |
Вот вторая задача на С++, сконвертите плз кто-то в Паскаль
Скрытый текст: | Без темы #include «iostream» #include «conio.h» using namespace std;
void main(){ setlocale(LC_ALL,«.1251»);
int number, check, counter;
cout<<«Введите число»<<endl; cin>>number;
counter=2;
cout<<«Результат:»<<endl;
do{
check=number%counter; if(check==0) { cout<<counter; if(number!=counter) cout<<«*»; number=number/counter; counter=2;
}
else counter++;
} while((number+1)!=counter);
getch();
}
| Это сообщение отредактировал BMW M3 GTR - 17.10.2010 - 20:21
|