С++ для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.75/8:

vebster12

1 / 1 / 0

Регистрация: 05.03.2017

Сообщений: 34

Перевод с Паскаль на С++

18.04.2017, 16:54. Показов 1654. Ответов 1

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
 
var
  m, k: byte;
 
begin
  write('m = ');
  readln(m);
  write('k = ');
  readln(k);
  while m >= k do
  begin
    m := m - k;
  end;
  writeln('Осталось ', m, ' руб.');
  readln;
 
end.

Лучшие ответы (1)

Сообщение: #10345247

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

18.04.2017, 16:54

Ответы с готовыми решениями:

Перевод з С++ в Паскаль))
#include "stdafx.h" #include <iomanip> #include <iostream> using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевод с Паскаль на С++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...

Перевод с Паскаль на С++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S div 100, ',', S mod 100,'...

GeFacle

Рэмбо комнатный

103 / 103 / 99

Регистрация: 05.03.2017

Сообщений: 511

18.04.2017, 19:13

Сообщение было отмечено vebster12 как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <iostream>
using namespace std;
int main()
{
int m,k;
cout << "m = " ;
cin >> m ;
cout << "\nk = " ;
cin >> k ;
while(m>=k)
{m=m-k;}
cout << "\nOstalos " << m << " rub. " ;
return 0;
}

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

18.04.2017, 19:13

Помогаю со студенческими работами здесь

Перевод из Паскаль в C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод с Паскаль на С++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

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

перевод из си++ в паскаль
for (int j = max(0, i - (n - m)); j <= i && j <= m; ++j) Как перевести эту строчку, а именно "j <= i && j <=...

Перевод из с++ в паскаль
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

Наверх