В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
forring0
forring0
31.08.2021 21:15 •  Информатика

var a,b: integer;
begin
while (a<>0) and (b<>0)do
if a>b then
a:=a mod b
else
b:= b mod a;
end.
1Дополните программу оператором вывода результата.
2Запишите условный оператор, который выводит результат, проверяя одну из переменных на равенство нулю.
3ДОПОЛНИТЕ программу так, чтобы она считала ещё и количество сделанных шагов цикла. ( Введите переменную-счётчик целого типа).

Показать ответ
Ответ:
KsushaTrefilova
KsushaTrefilova
27.03.2021 18:10

program Evklid;

var a, b, s: integer;

begin

//Добавлен оператор ввода чисел

 readln (a, b);

// Добавлен условный оператор из пункта 2

 if not ((a=0) or (b=0)) then

 begin

  // Добавлен счетчик шагов s из пункта 3

   s:=0;

   while (a<>0) and (b<>0)do

   begin

     if a>b then

       a:=a mod b

   else

       b:= b mod a;

   s:=s+1;

 end;

 end;

// Добавлен оператор вывода из пункта 1

 writeln('Nod = ',a+b, ',  S = ',s);

end.

Результат выполнения программы:


var a,b: integer; begin while (a<>0) and (b<>0)do if a>b then a:=a mod b else b:= b m
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота