Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

из Pascal в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ составьте я чет не могу http://www.cyberforum.ru/cpp-beginners/thread34147.html
Создать библиотеку функций: - функция удаления из предложения все вхождения заданной буквы на нечетных местах. -функция, меняющая местами первое и последнее слова предложения. - функция,...
C++ Решите при помощи двумерного массива Дан массив целых чисел.Выяснить: 1) верно ли, что максимальный элемент превышает минимальный не более чем на 25; 2) верно ли, что минимальный элемент меньше максимального более чем в два раза? http://www.cyberforum.ru/cpp-beginners/thread34145.html
Найти количество различных чисел среди элементов массива C++
Здравствуйте! Есть задача, не могу понять условия. Дан массив x: array of integer. Найти коли- чество различных чисел среди элементов этого массива. (Число действий должно быть порядка...
Строки, сортировки, списки C++
Выбрать из текста слова, начинающиеся и заканчивающиеся одной и той же буквой, и вы- вести их на экран. Обмен содержимого двух строк. Названия рек и их протяжённость. Ключ сортировки – длина реки,...
C++ Переставить в обратном порядке элементы одномерного массива http://www.cyberforum.ru/cpp-beginners/thread34111.html
Переставить в обратном порядке элементы одномерного массива, расположенного до первого минимального элемента массива. На с++
C++ Выделить корень слова Задача такова: есть слово, нужно выделить его корень. Стеммер эту проблему не решает, но никаких других вариантов не нашел... Может кто-нибудт что-нибудт уже делал в этом направлении? подробнее

Показать сообщение отдельно
Vzik
32 / 25 / 2
Регистрация: 05.05.2009
Сообщений: 58

из Pascal в с++ - C++

14.05.2009, 13:30. Просмотров 797. Ответов 15
Метки (Все метки)

Кто-нибудь помогите перевести... решение в Pascale вот...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n,r,m: integer;
begin
repeat
write('n=');
readln(n)
until n>0;
M:=n;
r:=1;
while m>0 do
begin
M:=m div 10;
R:=r*10;
end;
if (n*n mod r)=n then writeln (n,'avtomorfno') else writeln(n,'ne avtomorfno');
end.
А это уже я побывала перевести на с++...
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#include <conio.h>
#include <stdio.h>
#include <math.h>
void main()
{
clrscr();
int n,r,m;
printf ("\n n=);
scanf("%d%d" , &n);
m=n;
r=1;
while m>0 
{
m=m div 10;
r=r*10;
}
if (n*n mod r ) 
{
printf ("\n ""avtimorfnoe",n)   ;
}
else {
printf ("\n""ne avtomorfnoe",n)  ;
}
getch();
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru