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

Переведите с Pascal на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Перевод длинных целых чисел из двоичной в десятичную http://www.cyberforum.ru/cpp-beginners/thread1202896.html
Вобщем мне нужна верхняя граница для длины вектора , желательно ,чтобы зависимость была от длины числа в двоичном представлений Я как то на днях понял ,как сделать наоборот , об этом можете...
C++ неработающая функция проверки У меня есть 2 кода. 1 это рабочий - крестики нолики на заданном поле (с горем пополам но работает) 2 это попытка улучшения 1 кода. Беда в том, что во 2-м не читает первые и последние 5 строк (точнее... http://www.cyberforum.ru/cpp-beginners/thread1202895.html
C++ Как добиться 40 миллисекунд в консоле?
Функция Sleep() не пойдёт Написал такой код, но он даст 26 кадров в секунду вместо 25. #include <stdio.h> // D7R printf #include <conio.h> // D7R _getch #include<sys\timeb.h> timeb tms;...
C++ Почему не рекомендуется использовать препроцессор?
Я сейчас активно пользуюсь #define для упрощения понимания кода. Например, у меня сложная система классов, что бы получить одну переменную из класса, нужно набрать около 20-30 букв. А если нужно...
C++ Переведите с Pascal на C++ http://www.cyberforum.ru/cpp-beginners/thread1202873.html
var a,x,max,min:extended; begin read(a); min:=a; max:=a; while not eoln do begin read(a); if a<min then min:=a; if a>max then max:=a; end; writeln(max-min:0:2);
C++ Выведите остаток от деления A^B (A в степени B) на C Помогите, пожалуйста, исправить программу Вам даны целые числа A, B и C. Выведите остаток от деления A^B (A в степени B) на C. Технические условия Входные данные Единственная строка входного... подробнее

Показать сообщение отдельно
nata95
1 / 1 / 0
Регистрация: 05.01.2014
Сообщений: 109

Переведите с Pascal на C++ - C++

08.06.2014, 19:39. Просмотров 120. Ответов 0
Метки (Все метки)

Прошу, вас, пожалуйста, переведите на С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n : longint; 
 s : integer; 
begin 
 assign(input, 'input.txt'); reset(input); 
 assign(output, 'output.txt'); rewrite(output); 
 read(n); 
 s:=0; 
 while n>0 do 
 begin 
 s:=s+n mod 2; 
 n:=n div 2 
 end; 
 write(s) 
end
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru