1. Какой вид цикла (с параметром или с условием) следует использовать для решения этих задач

А. Чему равно произведение натуральных чисел от 1 до 15

Б. Какому числу стремится значение функции y=(1+1/х)^х

В. Нарисовать на экране компьютера линии всех возможных цветов

Г. На какой дроби результат выражения 1/10+1/11+1/12 станет больше 1:

Д. Сколько гласных букв в предложении

2. Какие из циклов бессмысленнопомещать в программу:
А. While x<0 Do х:=х+5
Б. While х<0 Do х:=х-100
В. While 0 Г. While a>0 do y:=2*y
Д. While a>b do a:=a-1; b:=b+1
E. While abs(x)+1>0.75 do x:=x+1

3. Что будет напечатано на экране В результате выполнения программы, я если известна начальное значение переменной А:

Program Z1; ' тут стартовая а=20
Var a:real;
Begin
Readln(a)
While a>8 do a:=a/2;
Writeln (a)
End.

Program Z2; ' тут стартовая а=10
Var a, b:real;
Begin
Readln(a); b:=-a
Repeat a:=a*2; b:=a+b until a Writeln (a)
End.

Определение через род и видовое отличие состоит из двух понятий: определяемого и определяющего, а сама операция включает в , себя два приема: 1) подведение определяемого понятия под более широкое по объему родовое понятие (род) и 2) указание видового отличия, т.е. признака, отличающего определяемый предмет (вид этого рода) от других видов, входящих в данный род. Например:«Чеком признается ценная бумага, содержащая ничем не обусловленное письменное распоряжение чекодателя банку уплатить держателю чека указанную в нем сумму». Здесь определяемое понятие «чек» является видом родового понятия «ценная бумага», которое содержит некоторые признаки понятия «чек»; остальная часть определения – видовое отличие – отличает чек от облигации, векселя, акции и других документов, выпускаемых в соответствии с законодательством в качестве ценных бумаг'.Определение через род и видовое отличие выражается символически: А=Вс, где А – определяемое понятие, Be – определяющее понятие (В – род, с – видовое отличие). Или: Dfd = Dfn, где = – знак эквивалентности.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите три числа:');
  if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
  if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
  Writeln('a=',a,', b=',b,', c=',c)
end.

Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8

Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.