Компанія бабусь поїхала на мотоциклах на курси комп’ютерної грамотності. Попереду на мотоциклі без глушника їхала одна бабуся, за нею – дві, потім – три і т.д. Скільки бабусь їхало на заняття, якщо приголомшені пішоходи нарахували всього N рядів? Чи змогли бабусі зайняти всі місця в класі, якщо там стояло K рядів по M комп’ютерів у кожному? Скільки вільних місць залишилось?
Вхідні дані. Програма зчитує з клавіатури через пропуск три цілих числа – кількість рядів бабусь N, кількість рядів комп’ютерів K, кількість комп’ютерів M у кожному ряді.
Вихідні дані. Програма виводить на екран через пропуск два цілих числа – спочатку 1 або -1 (-1, якщо не всім бабусям вистачило місць; 1 – у іншому випадку) і кількість комп’ютерів, які залишились вільними (виводити 0, якщо місць не вистачає)
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)
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.