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

@Михаил8888 · Регистрация: 04.05.2017

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

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

Pascal

var
  a, b, i, ii, fl, j: integer;
 
function sost(k: word): boolean;
var
  i: integer;
begin
  sost := false; 
  for i := 2 to k - 1 do 
    if k mod i = 0 then sost := true; 
end;
 
begin
  write('Введите M='); 
  read(a); 
  write('Введите N='); 
  read(b); 
  fl := 0; 
  if a > b then j := b else j := a; 
  for i := j downto 1 do 
    if (a mod i = 0) and (b mod i = 0) and sost(i) then begin
      ii := i; 
      
      
      fl := 1; 
    end;
  if fl = 0 then writeln('Нет такого числа') 
  else 
    writeln('NOD: ', ii); 
end.

@Puporev · 29.10.2017, 15:38

Что программа делает, какое задание?

Добавлено через 1 час 45 минут

Код

алг
нач
цел a, b, i, ii, fl, j
вывод "Введите М=", нс
ввод a
вывод "Введите N=", нс
ввод b
fl := 0
если a > b то j := b
иначе j := a
все
нц для i от j до 1 шаг -1
если mod(a,i) = 0 и mod(b,i)=0 и sost(i) то
ii := i;
fl := 1;
все
кц
если fl = 0 то вывод("Нет такого числа")
иначе вывод("NOD: ")
вывод(ii)
все
кон

|функция определения составное ли число
алг лог sost(цел k)
нач
цел i
лог f
f:= нет
нц для i от 2 до k-1
если mod(k,i) = 0 то f:= да
все
кц
знач:=f
кон

	29.10.2017, 15:38