Форум программистов, компьютерный форум, киберфорум
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 24.11.2019
Сообщений: 1
1

Перевести программу из паскаля в кумир

13.03.2020, 19:42. Показов 329. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program From2To10; 
var 
 n2: Longint; 
 n10, m, i: Integer; 
begin 
 Write('n2 = '); 
 ReadLn(n2); 
 n10 := 0; 
 m := 1; 
 while n2 <> 0 do 
 begin 
 i := n2 mod 10; 
 n10 := n10 + i * m; 
 m := m * 2; 
 n2 := n2 div 10; 
 end; 
 WriteLn('n10 = ', n10); 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2020, 19:42
Ответы с готовыми решениями:

Перевести программу из паскаля в кумир
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do begin...

Перевести программу из паскаля в кумир
var ar: Array Of Real; i, j: Byte; k, n, m: Integer; mult: Extended; //Double | Real...

Перевести программу из паскаля в кумир
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array of integer; begin...

Перевести из паскаля в кумир
var i, n: integer; s: real; begin write('n = '); read(n); s := 0; for i :=...

__________________
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30900 / 20216 / 7882
Регистрация: 22.10.2011
Сообщений: 35,098
Записей в блоге: 6
13.03.2020, 21:01 2
Код
алг From2To10
нач
  цел n2, n10, m, i
  вывод "n2 = "
  ввод n2
  n10 := 0; m := 1
  нц пока n2 <> 0
    i := mod(n2, 10)
    n10 := n10 + i * m
    m := m * 2
    n2 := div(n2, 10)
  кц 
  вывод "n10 = ", n10, нс
кон
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2020, 21:01

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

Перевести с паскаля на кумир
Привет всем. Помогите пожалуйста перевести код с паскаля на кумир. 1 Задача: var...

Как перевести из паскаля в кумир?
const n=5; type mas=array of integer; var a:mas; i: integer; k:real;...

Перевести программу с паскаля на си
uses crt; var x,y,z:real; begin read(x,y,z); if x+y+z&gt;x*y*z then writeln(x+y+z) else...

Перевести программу с Паскаля на C++
var n,k: integer; begin write ('n='); readln (n); k:=0; while n&gt;0 do begin k:=k+1; ...


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

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

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