var i, n: byte;
a: array [1..20] of byte;
begin
n:=15;
for i:=1 to n do
begin
a[i]:=10+random(90);
write (a[i]:3);
a[i]:=(a[i] mod 10) *10 + a[i] div 10;
end;
writeln;
for i:=1 to n do write (a[i]:3);
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

10.10.2020, 14:53

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

Перевод кода с Pascal на C++
program с4; var k: integer; {введенное число} n: integer; {количество чисел} ...

Перевод кода из Pascal в C++
Помогите перевести код с Pascal на С++: var n, sum, mult: integer; begin write('Enter...

Перевод кода из Pascal в C++
Помогите перевести этот код с Pascal ABC на C++ : uses crt; var N: integer; a: array of...

Перевод кода с Pascal на C++
Здравствуйте нужна помощь в переводе кода Pascal на C++. Я пробовал сам перевести но не...

	10.10.2020, 14:53

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

10.10.2020, 14:53

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

Перевод кода с Pascal to c++
uses crt; const mf=500; type vector=array of real; var {раздел описания переменных, которые мы...

Перевод кода из Pascal в С++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function...

Перевод кода с Pascal на C++
Помогите, пожалуйста, перевести задачу на C++ var sum, S, Mp, Ch: real; i, N: integer; begin...

Перевод кода из Pascal в C++
Народ прошу помощи с переводом кода Паскаль в С ++ var i,n:integer; p:real; begin...

перевод кода из pascal в c++
function SumRange(A, B : integer) : integer; var i, t : integer; begin t := 0; if A > B...

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

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

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

Опции темы

Наверх