Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 06.09.2018
Сообщений: 11
1

Перевести код с Паскаля на C++

06.09.2018, 20:40. Просмотров 884. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
 
  var число := ReadInteger('Введите трехзначное натуральное число:');
 
  var (сотни, единицы) := (число div 100, число mod 10);
 
  var десятки := число div 10 mod 10;
 
  var ПроизведениеЦифр := сотни * десятки * единицы;
 
  var СуммаЦифр := сотни + десятки + единицы;
 
  Println('Искомый остаток равен', ПроизведениеЦифр mod СуммаЦифр);
 
  Println('Новое число', 100 * сотни + 10 * единицы + десятки)
 
end.
Подробнее - на Znanija.com - https://znanija.com/task/29428296#readmore
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2018, 20:40
Ответы с готовыми решениями:

Перевести код из Паскаля в С++
Помогите, пожалуйста перевести в с++ uses crt; const nmax=20; var a:array of integer; ...

Перевести код с паскаля на C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые...

перевести код из паскаля на с++
var i, a, n, s: int64; j, t:longint; procedure out; begin writeln (s); halt; end; ...

Перевести код с Паскаля на С++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый...

4
151 / 143 / 87
Регистрация: 13.06.2018
Сообщений: 625
06.09.2018, 20:55 2
Цитата Сообщение от Vasyan12345 Посмотреть сообщение
Подробнее
подробнее для кого?
0
0 / 0 / 0
Регистрация: 06.09.2018
Сообщений: 11
06.09.2018, 21:05  [ТС] 3
Подробнее - на Znanija.com - https://znanija.com/task/29428296#readmore(эту строку я скопировал случайно),а так просто нужен перевод на с++
0
328 / 81 / 2
Регистрация: 21.07.2018
Сообщений: 112
Записей в блоге: 1
06.09.2018, 21:46 4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
int main()
{
  auto &in = std::cin; auto & out = std::cout;
  int число; out << "Введите трехзначное натуральное число:"; in >> число;
 
  auto сотни = число / 100, единицы = число % 10,
 
    десятки = ( число / 10 ) % 10;
 
  auto ПроизведениеЦифр = сотни * десятки * единицы;
 
  auto СуммаЦифр = сотни + десятки + единицы;
 
  out << "Искомый остаток равен" << ( ПроизведениеЦифр % СуммаЦифр ) << "\n"
 
    << "Новое число" << ( 100 * сотни + 10 * единицы + десятки );
}
1
0 / 0 / 0
Регистрация: 06.09.2018
Сообщений: 11
06.09.2018, 22:21  [ТС] 5
у меня не хочет работать

Добавлено через 2 минуты
а это можешь перевести пожалуйста
Python
1
2
3
4
5
6
7
8
begin
  var X := 125;
  var Prod := (X div 100) * (X div 10 mod 10) * (X mod 10);
  var Sum := (X div 100) + (X div 10 mod 10) + (X mod 10);
  Println('Остаток от деления:', Prod mod Sum); //Остаток от деления: 2
  var Y := (X div 100) * 100 + (X mod 10) * 10 + (X div 10 mod 10);
  Println(Y); //152
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2018, 22:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности...

Перевести код из Паскаля в Си++
Переведите пожалуйста из Паскаля в Си++, кому не сложно.

Перевести код с Паскаля на Си++
Добрый всем день! Будьте добры, перепишете пожалуйста данную программу из паскаля на си++. Буду...

Перевести код с Паскаля на С++
Program proga; uses crt; Type gostinica= record FIO:string; nomer:integer; cena:integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.