Цикл while (продолжение)

1. Выполните задание без компьютера

Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=5;
  k:=0;
  while k < 9 do begin
    k:=k+2;
    s:=s+k;
  end;
  write(s);
end. 

2. Программируем

Добавим для использования еще один тип данных.

Тип boolean (логический). Переменные и константы логического типа занимают 1 байт и принимают одно из двух значений, задаваемых предопределенными константами True (истина) и False (ложь). 

Решаем вместе задачу while22.

Перед решение задачи выполните упражнения:

• разложите число на простые множители: 55, 350, 47.
• определите, является ли число простым: 53, 91.

Решаем вместе задачу while23.

Описание алгоритма нахождения НОД делением

1. Большее число делим на меньшее.
2. Если делится без остатка, то меньшее число и есть НОД (следует выйти из цикла).
3. Если есть остаток, то большее число заменяем на остаток от деления.
4. Переходим к пункту 1.

Перед решение задачи выполните упражнения:

• найдите вручную НОД (42,66), НОД (55,12), НОД (350,35).

Самостоятельно напишите программу для поиска НОД вычитанием по следующему алгоритму:

1. Из большего числа вычитаем меньшее.
2. Если получается 0, то значит, что числа равны друг другу и являются НОД (следует выйти из цикла).
3. Если результат вычитания не равен 0, то большее число заменяем на результат вычитания.
4. Переходим к пункту 1.

Задание В2 ЕГЭ по информатике за 2011 год: