0 / 0 / 0
Регистрация: 16.10.2021
Сообщений: 5
1

Перевод кода Pascal в код C++

16.10.2021, 15:41. Показов 430. Ответов 0

Author24 — интернет-сервис помощи студентам
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
31
program Project1;
 
var
  a,max: integer;
  j: longword;
  reg: boolean;
begin
writeln('Чтобы выйти из цикла ввода чисел, введите "0"');
reg:= false;
repeat
  Write('Введите число: ');
  Readln(a);
  if a = 0 then  // Выход из цикла при вводе "0".
    break;
  j:= 1;
  repeat
      j:= j+j;   // Генератор удваивающихся чисел.
      if (a = j-1) and (not reg) then // Назначение самого первого числа максимальным среди выбранных.
        begin
         max:= a;
         reg:= true;
        end;
      if (a = j-1) and (a > max) then  // Поиск числа с максимальным значением среди выбранных.
         max:= a;
  until j > 2147483646; // Условие выхода из цикла.
until false;
 writeln('Число имеющее наибольшее количество единиц в двоичном варианте: ',max);
 
 
Readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2021, 15:41
Ответы с готовыми решениями:

Перевод кода с Pascal
var k,i,n,c:integer; p,w:real; begin write('k>-3 k='); readln(k); w:=0; c:=1; for i:=-3...

Перевод кода из pascal в c++
Помогите пожалуйста перевести на c++ Program bukv; Uses crt; Const g: array of...

Перевод кода с Pascal
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do ...

Перевод кода из Pascal в С++
uses crt; var n,i,k:integer; a,min:real; begin write('n='); readln(n);...

0
16.10.2021, 15:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2021, 15:41
Помогаю со студенческими работами здесь

Перевод кода из Pascal в C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i>=j j-2 -...

Перевод кода из Pascal/VB в C++
Помогите пожалуйста перевести код в С++. Сдавать уже скоро, и я никак не приложу ума как это все...

Перевод кода с Pascal
uses crt,graphABC; function y(x:real):real; begin if x<0 then y:=1+sqrt(abs(cos(x*x+1))) else...

Перевод кода из Pascal в C++
Прошу помощи ещё раз с переводом кода ! 2. var i, sum : integer; n : real; begin sum := 0;...

Перевод кода из Pascal в C++
Прошу помощи с переводом Program prim3; Var x,i,s,n: integer; Begin s:=0; WriteLN('Введите...

Перевод кода с Pascal
var k,n,m:integer; x,s,p,t:real; begin repeat write('x<>0 x=');{х в знаменателе, исключаем...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru