Петя коллекционирует наклейки с супергероями (сг), а маша наклейки с феями. в магазине за покупку свыше некоторой суммы запечатанный конверт с разными наклейками. у пети накопилась х наклеек с феями, а у маши y c сг. они договорились поменяться - за каждые а наклеек с феями, петя получит b наклеек с сг. напишите программу, которая вычислит сколько наклеек с сг сможет выменять петя.

programm reshenie;//название программы(название reshenie можно заменить любым другим)

var x, y, a:Real;//создаю переменные и пишу что они не целые(real)

begin//начало программы

writeln ('Введите сколько наклеек фей накопилось у Пети');//вывод текста

readln(x);//ввод значения x пользователем

writeln (Введите сколько накопилось у Маши');//вывод текста

a:=x/y;//пишем, что а равен значению x деленного на y

writeln ('Петя сможет выменять ' + a + ' ' + 'наклеек супергероев');//вывод текста

readln;//для того чтобы программа ждала нажатия кнопки enter

end.//конец

Когда мы копируем рисунок в буфер, то он определенного размера.
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.