Скриншоты

Просмотров: 149081

Общий вид

Окно вывода Сообщения об ошибках Запуск нескольких приложений одновременно Отладчик

Средства Intellisense

Подсказка по точке Подсказка по параметрам Всплывающая подсказка по имени Создание подсказки по имени

Проверяемые задания

Создание шаблона задания Решение задач для электронного задачника Решение задач для исполнителя Робот Решение задач для исполнителя Чертежник

Новости

Случайная программа

// Алгоритм Евклида нахождения НОД
// Уровень сложности: 0

function GCD(a,b: integer): integer;
begin
  while b<>0 do
  begin
    var c := a mod b;
    a := b;
    b := c;
  end;
  Result := a;
end;

begin
  var a,b: integer;
  writeln('Введите a,b: ');
  read(a,b);
  
  writeln('НОД = ',GCD(a,b));
end.