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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Составьте программу вычисления суммы чисел http://www.cyberforum.ru/cpp-beginners/thread1184507.html
Составьте программу вычисления суммы чисел кратных 15 в диапазоне от 15 до 615.
C++ Найти в массиве среднее арифметическое простых элементов кому не сложно, помогите!!! Задачи надо переписывать! http://www.cyberforum.ru/cpp-beginners/thread1184494.html
C++ Принадлежит ли точка с координатами (х, у) заданной области
Для данных областей составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае (обратите внимание, что внутренняя окружность - эллипс, а внешняя - круг): график.
Вычисление значения по формуле C++
Помогите пожалуйста!!!! Перепечатывайте задание на форум в виде текста.
C++ Сортировка слиянием на убывание http://www.cyberforum.ru/cpp-beginners/thread1184485.html
Необходимо отсортировать массив сортировкой слиянием на убывание Код сортирует на возрастание, но не получается отсортировать на убывание void un_pair_merge(size_t f, size_t l){ if(l-f < 2) return; un_pair_merge(f,f+(l-f)/2);
C++ Найти число положительных и отрицательных элементов массива и поделить их сумму на произведение элементы массива задать счетчиком случайных чисел от "a" до "b". Подсчитать М=(К1+К2)/(К1*К2). К1 - кол-во положительных элементов. К2 - кол-во отрицат. элементов подробнее

Показать сообщение отдельно
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30

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

22.05.2014, 11:19. Просмотров 257. Ответов 5
Метки (Все метки)

Pascal
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
26
27
28
29
30
uses crt;
function Summ(n:longint):byte;
var m:longint;
    s:byte;
begin
s:=0;
m:=n;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var n,i:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if Summ(i)=Summ(n) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Нет');
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru