Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Nelogin
0 / 0 / 0
Регистрация: 30.11.2017
Сообщений: 10
1

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

30.11.2017, 22:10. Просмотров 823. Ответов 2
Метки нет (Все метки)

Помогите перевести на кумир, пожалуйста!
Pascal
1
2
3
4
5
6
7
8
9
10
11
program E6; 
  var a, b: integer; 
begin
  write ('введите два натуральных числа');
  readln (a, b);
  while a<>b do 
    if a>b then a: = a - b 
    else b: = b - a; 
  write ('НОД = ', a);
  readln; 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2017, 22:10
Ответы с готовыми решениями:

Перевод с Паскаля на КуМир
var st: string; i: integer; begin readln(st); for i:=1 to...

Перевод с Паскаля на Кумир - программирование
var a : array of integer ; n,i,k:integer; begin randomize; write('Введите...

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

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

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

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26101 / 17501 / 6943
Регистрация: 22.10.2011
Сообщений: 30,823
Записей в блоге: 6
01.12.2017, 12:18 2
Лучший ответ Сообщение было отмечено Nelogin как решение

Решение

Что было на Паскале - то и переведено:
Код
алг
нач
  цел a
  цел b
  вывод "Введите два натуральных числа", нс
  ввод a, b
  нц пока a <> b
    если a > b то a := a - b иначе b := b - a все
  кц
  вывод "НОД = ", a, нс
кон
1
Curry
2557 / 1722 / 220
Регистрация: 01.06.2013
Сообщений: 3,597
Записей в блоге: 7
01.12.2017, 12:36 3
Лучший ответ Сообщение было отмечено Nelogin как решение

Решение

Я не знаю кумир, однако предполагаю что первая ", нс" лишняя. Да и вторая, если делать 1:1 как на паскале, тоже.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2017, 12:36

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

[КуМир] Квадраты и кубы
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11,...

[КуМир] Двумерные массивы. Снова
Получить массив В(3), перемножая элементы 1-й строки и 2-го столбца матрицы...


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

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

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