ВНИМАНИЕ, 1 КУРС! ССЫЛКА НА it-starter ТЕЛЕГРАМ в группах (см. комментарии).

Главная › Блоги › VTlyusten's blog

ЛАБОРАТОРНАЯ РАБОТА 1. Регистрации, настройки, апробация сред обучения

Ср, 09/09/2020 - 11:35 — VTlyusten

1. Зарегистрируйтесь на сайте it-starter.ru;
2. Выполните задания, указанные во "Введении для первокурсников 2020" (размещение пробного поста и "Красивого кода");
3. Откройте этот вот он-лайн компилятор (Паскаль, Питон) и используя в качестве справочных ресурсов, например, ПАСКАЛЬ и ПИТОН, апробируйте его сначала набрав и запустив программу сложения двух чисел, а затем рассмотренный нами на лекции 1 алгоритм Евклида.
4. Сохраните где-то у себя выше указанные три ссылки, которые мы в дальнейшем будем использовать под именами, соответственно:
1) Он-лайн компилятор;
2) Паскаль-учебник;
3) Питон-учебник.
Примечание. Дополнительно, Вы можете на своём компьютере или смартфоне установить или использовать уже установленную любую систему программирования на ЯП ПАСКАЛЬ и ПИТОН, которая Вам привычна или кажется удобной.

Задание на дом:
1. Составить таблицу трассировки процесса выполнения алгоритма Евклида для пары чисел НОД(28, 34) по образцу той, что была предложена на лекции1;
2. Решить в языках ПАСКАЛЬ и ПИТОН, а так же апробировать в он-лайн компиляторе решения первых трёх из тех задач, которые были предложены в Анкете (см. в конце "Введения для первокурсников 2020"). При этом, циклы не использовать!

5
Your rating: Нет Average: 5 (2 votes)

Комментарии

Ср, 09/09/2020 - 13:11 — Алёна Соммер
Алёна Соммер аватар

program sum;var

  1. program sum;
  2.    var a,b,c:integer;
  3. begin
  4.    writeln('введите два числа a,b');
  5.    readln(a,b);
  6.    c:=a+b;
  7.    writeln('сумма=',c);
  8. end.

Ср, 09/09/2020 - 15:16 — Лукьянов Сергей

Лукьянов Сергей (python 3.7)

Сумма 2-х чисел

  1. a = int(input())
  2. b = int(input())
  3. print(a+b)

Алгоритм Евклида
  1. a = int(input())
  2. b = int(input())
  3. while a != b:
  4.     if a > b:
  5.         a = a-b
  6.     else:
  7.         b = b-a
  8. print(a)

Ср, 09/09/2020 - 14:46 — Байков Иван
Байков Иван аватар

Алгоритм Евклида Python

Python

  1. m = int(input())
  2. n = int(input())
  3. while m != n:
  4.     if m > n:
  5.         m = m - n
  6.     else:
  7.         n = n - m
  8. print(m)

Паскаль
  1. program Evklid;
  2. var m,n : integer;
  3. begin
  4.     readln(m,n);
  5.     while m <> n do begin
  6.         if m > n then
  7.             m := m -n
  8.         else
  9.             n := n - m;
  10.     end;
  11.     write (m);
  12. end.

Ср, 09/09/2020 - 14:34 — Джанет Кунижева
Джанет Кунижева аватар

КунижеваДжанет

  1. Кунижева
  2. Джанет

Ср, 09/09/2020 - 14:43 — Джанет Кунижева
Джанет Кунижева аватар

КунижеваДжанет

  1. # НОД - алгоритм Евклида
  2. m=int(input())
  3. n=int(input())
  4. while m!=n:
  5.   if m > n:
  6.     m-=n
  7.   if n > m:
  8.     n-=m
  9. print(m)

Ср, 09/09/2020 - 14:44 — Джанет Кунижева
Джанет Кунижева аватар

КунижеваДжанет

  1. print("Введите два числа")
  2. a=int(input())
  3. b=int(input())
  4. c=a+b #сумма двух чисел
  5. print(c)

Ср, 09/09/2020 - 14:49 — Ислам Емиж

Емиж Ислам

  1. # алгоритм Евклида
  2. a = int(input())
  3. b = int(input())
  4. while a != b:
  5.     if a > b:
  6.         a -= b
  7.     else:
  8.         b -= a
  9. print(a)

Ср, 09/09/2020 - 14:50 — Кулакова Анастасия

Кулакова Анастасия

  1. program sum;
  2. var a,b,c:integer;
  3. begin
  4.     readln(a,b);
  5.     c:=a+b;
  6.     writeln(c);
  7. end.

Ср, 09/09/2020 - 15:17 — Кулакова Анастасия

Кулакова Анастасия

  1. program euclid;
  2. var a,b : integer;
  3. begin
  4.     readln (a,b);
  5.     while (a <> b) do begin
  6.         if (a > b) then begin
  7.             a := a-b
  8.         end else begin
  9.             b := b-a
  10.         end;//if
  11.     end;//while
  12.     write (a);
  13. end.

Ср, 09/09/2020 - 15:32 — Джаудат Мая

Алгоритм Евклида

Джаудат Мая
Python3

  1. m = int(input("введите первое ч-ло: "))
  2. n = int(input("введите второе ч-ло: "))
  3.  
  4. while m != n:
  5.     if m > n:
  6.         m -= n
  7.     else:
  8.         n -= m
  9.  
  10. print(f"ответ: {m}")

Ср, 09/09/2020 - 15:27 — Сметанин Викентий

Сметанин Викентий

  1. x1 = int(input())
  2. x2 = int(input())
  3.  
  4. print('Сумма чисел: ', x1 + x2)
  5. while x1 != x2:
  6.     if x1 > x2:
  7.         x1 -= x2
  8.     else:
  9.         x2 -= x1
  10. print('НОД чисел: ', x1)

Ср, 09/09/2020 - 15:39 — Кирилл Соловьев
Кирилл Соловьев аватар

Соловьев Кирилл Сергеевич

Сумма 2-х чисел

  1. program sum;
  2. var
  3.     m,n,rez:integer;
  4. begin
  5.     readln(n,m);
  6.     rez:=n+m;
  7.     writeln(rez);
  8. end.

Евклид

  1. program evk;
  2. var
  3.     m,n:integer;
  4. Begin
  5.     readln(m,n);
  6.     while m<>n do begin
  7.       if m>n then
  8.           m:=m-n
  9.       else
  10.             n:=n-m;
  11.     end;  
  12.         writeln(m);    
  13. end.

Ср, 09/09/2020 - 15:31 — Мацына Родион Р...

Program EVKLID; var M,N :

  1. Program EVKLID;
  2. var M,N : integer;
  3.   begin
  4.    readln(M,N);
  5.   while M <> N do begin
  6.    if M > N then
  7.      M := M -N
  8.    else
  9.      N := N - M;
  10.  end;
  11.    writeln (M);
  12.  end.

Ср, 09/09/2020 - 17:43 — Кузнецов Александр

Задачи

Сумма двух чисел:

  1. print(int(input()) + int(input()))

Алгоритм Евклида:

  1. a = int(input())
  2. b = int(input())
  3.  
  4. while a > 0 and b > 0:
  5.     if a > b:
  6.         a = a % b
  7.     else:
  8.         b = b % a
  9.        
  10. print(max(a, b))

Ср, 09/09/2020 - 15:33 — Вавилов Максим

ВавиловМаксим

Алгоритм Евклида

  1. # Алгоритм Евклида
  2.  
  3. a = int(input("Введите первое число: "))  # Введение первого числа
  4. b = int(input("Введите второе число: "))  # Введение второго числа
  5.  
  6. while (a != b):
  7.     if (a > b):  # Если a>b, то переобозначить как a = a-b
  8.         a -= b
  9.     else:  # Если a>b, то переобозначить как b = b-a
  10.         b -= a
  11.  
  12. print("НОД двух введенных чисел равен: " + str(a))

Ср, 09/09/2020 - 15:38 — Никита Богданов

Алгоритм НОД

  1. var m,n :integer;
  2.  
  3. Begin
  4.     Read (m,n);
  5.     While m<>n do
  6.        Begin
  7.            if m>n then m:=m-n;
  8.            if n>m then n:=n-m;
  9.        end;
  10.     WriteLn (m);  
  11. end.

Ср, 09/09/2020 - 15:39 — Карданов Рустам...

m= int(input()) n=

  1. m= int(input())
  2. n= int(input())
  3. while m != n:
  4.     if m > n:
  5.         m-=n
  6.     else:
  7.         n-=m
  8. print (m)

Ср, 09/09/2020 - 15:42 — Суворов Станислав

Сложение двух

Сложение двух чисел
Pascal:

  1. program Sum;
  2. var
  3.     a,b : integer;
  4. begin
  5.     writeln('Введите числа a и b');
  6.     readln(a,b);
  7.     a += b;
  8.     writeln('Сумма равна ', a);
  9. end.

Python

  1. print('Введите 2 числа')
  2. a = int(input())
  3. b = int(input())
  4. a += b
  5. print(a)

Алгоритм Евклида
Pascal:

  1. program Ev;
  2. var
  3.     m,n : integer;
  4. begin
  5.     writeln('Введите числа m и n');
  6.     readln(m, n);
  7.     while m <> n do
  8.     begin
  9.         if m > n then
  10.         begin
  11.             m -= n;
  12.         end
  13.         else
  14.         begin
  15.             n -= m;
  16.         end;
  17.     end;
  18.     writeln('НОД ', m);
  19. end.

Python

  1. print('Введите m и n ')
  2. m = int(input())
  3. n = int(input())
  4. while m != n:
  5.     if m > n:
  6.         m -= n
  7.     else:
  8.         n -= m
  9. print('НОД ', m)

Ср, 09/09/2020 - 15:44 — muhab joumaa

pascal: program nod; var

pascal:

  1. program nod;
  2. var m:integer;
  3. n:integer;
  4. begin
  5.     writeln('enter two numbers');
  6.     readln(m,n);
  7.     while m<>n do
  8.     begin
  9.     if m>n then
  10.     m:=m-n;
  11.     else begin
  12.     n:=n-m;
  13.     end;
  14.     end;
  15.     writeln(m);
  16. end.

python
  1. print("enter two numbers")
  2. m=int(input())
  3. n=int(input())
  4. while m!=n:
  5.     if m>n:
  6.         m-=n
  7.     else:
  8.         n-=m
  9.     print(m)

Ср, 09/09/2020 - 20:02 — Вурдем Инал

Евклид

  1. first = int(input())
  2. second = int(input())
  3. while first != second:
  4.     if first > second:
  5.         first = first - second
  6.     else:
  7.         second = second - first
  8. print(first)

Ср, 09/09/2020 - 20:52 — Мартынова Виктория
Мартынова Виктория аватар

Euclid

  1. program Euclid;
  2.   Var x,y: Integer
  3. begin
  4.     Readln(x,y);
  5.     While x<>y Do Begin
  6.        If x>y Then
  7.           x:=x-y
  8.        Else Begin
  9.           y:y-x
  10.        End;
  11.      End;
  12.     Writeln(x)
  13. end.

Ср, 09/09/2020 - 22:00 — Беданокова Мадина
Беданокова Мадина аватар

Беданокова Мадина Вячеславовн

  1. Беданокова
  2. Мадина
  3. Вячеславовна

Ср, 09/09/2020 - 22:11 — Беданокова Мадина
Беданокова Мадина аватар

Сумма двух чисел

  1. print("Введите два числа")
  2. n=int(input())
  3. m=int(input())
  4. s=n+m #сумма двух чисел
  5. print(s)

Чт, 10/09/2020 - 14:12 — Turkav Asker

Eucluid

program Eucluid;
var
m,n:integer;
begin
writeln('Введите 2 числа-');
readln (m,n);
while m<>n do begin
if (m>n) then
m:=m-n
else
n:=n-m;
end;
writeln ('общий делитель-', m);
end.

Ср, 09/09/2020 - 22:32 — Софья Сафаргалеева
Софья Сафаргалеева аватар

program EVKLID; var m,n:

  1. program EVKLID;
  2. var m,n: integer;
  3. begin
  4. readln (m,n)  ;
  5. while m<>n do begin ;
  6. if m>n then
  7. m:=m-n;
  8. else begin
  9. n>m
  10. n:=n-m
  11. end;
  12. end;
  13. writeln(m)
  14. end.

Ср, 09/09/2020 - 23:49 — VTlyusten

И ЗДЕСЬ ПОВТОРЮСЬ!

Почти все здесь с заданием о "красивом коде" программы справились. Поздравляю!
Именно так теперь Вы должны ВСЕГДА оформлять программный код.
Но и о правильной структуре (рельефе) программы (со всеми необходимыми отступами) Вы должны думать.
И с этим тоже у большинства здесь отметившихся всё в порядке!

Например, алгоритм Евклида на ПАСКАЛЕ не правильно записать так:

  1. program Euclid;
  2. Var x,y: Integer
  3. begin
  4. Readln(x,y);
  5. While x<>y Do Begin
  6. If x>y Then
  7. x:=x-y
  8. Else Begin
  9. y:=y-x
  10. End;
  11. End;
  12. Writeln(x)
  13. end.

Хотя программа эта работать будет правильно, понять ее структуру из-за отсутствия рельефа, наглядно отражающего вложенности конструкций друг в друга, очень сложно.

А правильно её следовало бы структурировать вот так:

  1. program Euclid;
  2.   Var x,y: Integer
  3. begin
  4.      Readln(x,y);
  5.      While x<>y Do Begin
  6.          If x>y Then
  7.              x:=x-y
  8.          Else Begin
  9.              y:=y-x
  10.          End;
  11.      End;
  12.      Writeln(x)
  13. end.

Именно в таком виде представленные ваши программы я впредь только и буду рассматривать.
Алёна, Аскер, muhab joumaa, Софья - повторите попытку!

Ср, 09/09/2020 - 23:54 — Карев Дмитрий

Сумма двух

Сумма двух чисел:
Python

  1. a=int(input())
  2. b=int(input())
  3. rez=a+b
  4. print(rez)

Pascal
  1. program summa;
  2.  var a, b, rez: integer;
  3. begin
  4.  readln(a, b);
  5.  rez:=a+b;
  6.  writeln(rez)
  7. end.

Алгоритм Евклида:
Python
  1. m=int(input())
  2. n=int(input())
  3. while m !=n:
  4.  if m>n:
  5.   m=m-n
  6.  else:
  7.   n=n-m
  8. print(m)

Pascal
  1. program Euclid;
  2.  VAR m, n: integer;
  3. begin
  4.  readln(m, n);
  5.  while(m<>n);
  6.   if (m>n) then
  7.    m:=m-n
  8.   else
  9.    n:=n-m
  10.  end;
  11.  write(m);
  12. end.

Ср, 09/09/2020 - 23:59 — Фальков Михаил

3 задачи

  1. #Задача 1
  2. print('Введите число x которое будет использовано в примере x^16+10x-1')
  3. chislo = int(input())
  4. y = chislo*10
  5. x = pow(chislo, 16)
  6. otvet = x + y
  7. print(otvet - 1)

  1. #Задача 2
  2. print('Введите 3 числа через Enter и я назову наименьшее')
  3. M = input()
  4. N = input()
  5. K = input()
  6. if M < N and M < K:
  7.     print('Наименьшее число: '+ M)
  8. elif N < M and N < K:
  9.     print('Наименьшее число: '+ N)
  10. elif K < M and K < N:
  11.     print('Наименьшее число: '+ K)

  1. #Задача 3
  2. print('Я запишу твоё число задом наперёд')
  3. chislo = list(input())
  4. chislo.reverse()
  5. print(''.join(chislo))

Ср, 09/09/2020 - 23:59 — VTlyusten

Карев Дима

Единственное замечание - впредь увеличить отступы (не 1, а 2-3 позиции), тогда будет наглядней.

Чт, 10/09/2020 - 00:11 — VTlyusten

Михаил.

1. Домашнее задание сюда выкладывать не следует.
2. Задачи необходимо решить на ДВУХ языках. Причем, особую ценность представляет решение на "чужом" языке.
3. Не выдержаны все ограничения на условия задач (кстати эти условия следует тут же приводить в качестве комментария к соответствующим решениям, тогда можно указать Ваши упущения предметней).
ИТОГ - ДЗ не выполнено.

Чт, 10/09/2020 - 11:17 — Беданокова Мадина
Беданокова Мадина аватар

Алгоритм Евклида

  1. program Euclid
  2.     Var x,y: Integer
  3. begin
  4.           Readln(x,y)
  5.           While x<>y Do Begin
  6.                 If x>y Then
  7.                      x:=x-y
  8.                 Else Begin
  9.                      y:=y-x
  10.                  End
  11.            End
  12.            Writeln(x)
  13. end

Чт, 10/09/2020 - 11:42 — Гаврилова Лиза

Eвклид

  1. a=int(input())
  2. b=int(input())
  3. while a!=b:
  4.     if a>b:
  5.         a-=b
  6.     else:
  7.         b-=a
  8. print(a)

pascal
  1. program E;
  2.     Var a,b: Integer
  3. begin
  4. read(a,b);
  5. while (a<>b) do begin
  6. if (a>b) then
  7.    a:a-b
  8. else b:=b-a
  9. end;
  10. writeln(a);
  11. end.

Чт, 10/09/2020 - 12:28 — Решетников Максим
Решетников Максим аватар

Лиза, лучше оформить так:

  1.    
  2. program E;
  3.     Var a,b: Integer; // '';'' в конце строк
  4. begin
  5.     read(a,b);
  6.     while (a<>b) do begin
  7.         if (a>b) then begin
  8.            a:= a - b // тут забыла "="
  9.         end  
  10.         else begin
  11.            b:= b - a
  12.         end;
  13.     end;
  14.     writeln (a);
  15. end.

Чт, 10/09/2020 - 13:23 — Архипов Евгений

Алгоритм Евклида

  1. program Evklid;
  2. var m,n : integer;
  3. begin
  4.     readln(m,n);
  5.     while m <> n do begin
  6.         if m > n then
  7.             m := m -n
  8.         else
  9.             n := n - m;
  10.     end;
  11.     write (m);
  12. end.

Чт, 10/09/2020 - 14:25 — Софья Сафаргалеева
Софья Сафаргалеева аватар

program EVKLID;   var m,n:

  1. program EVKLID;
  2.    var m,n: integer;
  3. begin
  4.      readln (m,n)  ;
  5.      while m<>n do begin ;
  6.        if m>n then begin
  7.           m:=m-n;
  8.        end; //конец if
  9.        else begin;
  10.           n>m ;
  11.           n:=n-m;
  12.        end; // конец else
  13.      end; //конец while
  14.      writeln(m)
  15. end.

Чт, 10/09/2020 - 16:35 — Егор Вячеславов

Егор Вячеславов Вячеславович

  1. Егор
  2. Вячеславов
  3. Вячеславович

Чт, 10/09/2020 - 16:36 — Сергей Cолдатов

.

.

Чт, 10/09/2020 - 16:49 — Колесник Елена

КолесникЕленаВикторовна

  1. Елена
  2. Викторовна
  3. Колесник

Чт, 10/09/2020 - 16:59 — Вячеслав Кушнарев
Вячеслав Кушнарев аватар

.

1. Кушнарев
2. Вячеслав
3. Евгеньевич

Чт, 10/09/2020 - 19:03 — Холмогоров Иван

Алгоритм Евклида

Python
  1. #python 3.8
  2.  
  3. '''
  4. Реализация алгоритма Евклида на языке Python
  5. '''
  6.  
  7. N = int(input())
  8. M = int(input())
  9.  
  10. while N != M:
  11.         if N > M:
  12.                 N -= M
  13.         else:
  14.                 M -= N
  15.  
  16. print(N)

Pascal
  1. // Реализация алгоритма Евклида на языке Pascal
  2.  
  3. program NOD;
  4. Var N, M: Integer;
  5.  
  6. Begin
  7.     Readln(N, M);
  8.  
  9.     While N <> M Do
  10.     Begin
  11.         If N > M Then N:= N-M
  12.         Else M:= M-N
  13.     End;
  14.  
  15.     Writeln(N);
  16. End.

Чт, 10/09/2020 - 20:56 — Ящишен Кирилл

Алгоритм Евклида

Paskal

  1. program nod;
  2. var M,N:integer;
  3. begin
  4.     readln(M,N);
  5.     while M <> n do begin
  6.         if M > n then
  7.             M := M -N
  8.         else
  9.             N := N - M;
  10.     end;
  11.     write (M);
  12. end.

Python

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.     if M > N:
  5.         M = M - N
  6.     else:
  7.         N = N - M
  8. print(M)

Чт, 10/09/2020 - 21:01 — Тлюстангелов Магамет

Алгоритм Евклида на языке pascal

  1. program Evklid;
  2. var x,y:integer;
  3. begin
  4.         readln(x,y);
  5.         while x<>y do
  6.                 begin
  7.                         if x>y then
  8.                                 x:=x-y
  9.                         else
  10.                                 y:=y-x
  11.                 end;
  12.         writeln(x);
  13. end.

Чт, 10/09/2020 - 21:05 — Тлюстангелов Магамет

Алгоритм Евклида на языке python

  1. x=int(input())
  2. y=int(input())
  3. while x!=y:
  4.     if x>y:
  5.         x-=y
  6.     else:
  7.         y-=x
  8. print(x)

Чт, 10/09/2020 - 21:09 — Пилютик Полина

Алгоритм Евклида Paskal

Paskal

  1.  
  2. program nod;
  3. var M,N:integer;
  4. begin
  5.  readln(M,N);
  6.  while M <> n do begin
  7.  if M > n then
  8.  M := M -N
  9.  else
  10.  N := N - M;
  11.  end;
  12.  write (M);
  13. end.

Чт, 10/09/2020 - 21:08 — Пилютик Полина

Алгоритм Евклида Python

Python

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.  if M > N:
  5.  M = M - N
  6.  else:
  7.  N = N - M
  8. print(M)

Вс, 13/09/2020 - 20:44 — Кузьмин Денис

алгоритм Евклида

Python:

  1. M = int(input())
  2. N = int(input())
  3. while M != N:
  4.     if M > N:
  5.         M -= N
  6.     else:
  7.         N -= M
  8. print(M)

Pascal:
  1. program constant;
  2. var
  3.   a, b: integer;
  4. begin
  5.   readln(a);
  6.   readln(b);
  7.   while a <> b do begin
  8.     if b > a then
  9.       b := b - a;
  10.     if a > b then
  11.       a := a - b;
  12.   end;
  13.   writeln(b)  
  14. end.

Сб, 12/09/2020 - 16:15 — Рогов Даниил

Алгоритм Евклида Паскаль

  1. Program EUCLID; //вычисление НОД (a,b)
  2.   Var a,b: integer;
  3. Begin
  4.    Readln(a,b);
  5.   While a<>b do begin;
  6.     if a>b then
  7.        a:=a-b
  8.     else
  9.        b:=b-a;
  10.     End;  
  11.  Writeln(a);
  12. End.

Вс, 13/09/2020 - 01:00 — Фальков Михаил

Алгоритм Евклида

Python

  1. print('Введите 2 числа через Enter')
  2. M = int(input())
  3. N = int(input())
  4. while M != N:
  5.     if M > N:
  6.         M -= N
  7.     else:
  8.         N -= M
  9. print(M)

Pascal

  1. program evk;
  2.  
  3. var M,N : Integer;
  4.  
  5. begin
  6.  
  7.   writeln('Введите 2 числа и я посчитаю их НОД');
  8.   writeln('Введите 1-ое число');
  9.   readln(M);
  10.   writeln('Введите 2-ое число');
  11.   readln(N);
  12.  
  13.   while M <> N do
  14.     begin
  15.        if M>N then
  16.          M:=M-N
  17.        else
  18.           N:=N-M;
  19.    end;
  20.    
  21.   writeln('Наибольший общий делитель = ',M);
  22.  
  23. end.

Вс, 13/09/2020 - 01:02 — Фальков Михаил

Сумма 2-х чисел

Python

  1. print('СУММА 2-Х ЧИСЕЛ')
  2. print('Введите 1-ое число')
  3. M = int(input())
  4. print('Введите 2-ое число')
  5. N = int(input())
  6. print('Сумма этих чисел: ',M+N)

Pascal

  1. program summa;
  2.  
  3. var M,N : Integer;
  4.    
  5. begin
  6.  
  7.    writeln('Введите 1-ое число');
  8.    readln(M);
  9.    writeln('Введите 2-ое число');
  10.    readln(N);
  11.    writeln('Сумма этих чисел: ',M+N);
  12.    
  13. end.

Ср, 16/09/2020 - 19:32 — Колесник Елена

.

  1. 1.Begin
  2. 2. Readln (a,b)
  3. 3. While a<>b Do Begin
  4. 4.      If a>b Then
  5. 5.          a:=a-b
  6. 6.      Else Begin
  7. 7.         b:=a-b
  8. 8.      End;
  9. 9.  End;
  10. 10. Writeln (a);
  11. 11.End