. Складіть блок-схему алгоритму обчислення значення виразу (a + b) — с: (а — 2b Виконайте його при різних значеннях a, b, c, Доберіть значення так, щоб для різних наборів значень виконання алгоритму відбувалося по-різному. Умоляю

var

 N, V, K, T: real;

 i: Integer;

begin

   Write ('Сумма вклада: ');

   ReadLn (N);

   Write ('Стоимость велосипеда: ');

   ReadLn (V);

   Write ('Стоимость подержанного авто: ');

   ReadLn (K);

   Write ('Стоимость нового авто: ');

   ReadLn (T);

   for i := 1 to 10 do

     N := N * 1.07;

   Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));

   if N >= T then

     Writeln ('На эту сумму можно приобрести новое авто.')

   else if N >= K then

     Writeln ('На эту сумму можно приобрести подержанное авто')

   else if N >= V then

     Writeln ('На эту сумму можно приобрести велосипед')

   else

     Writeln ('На эту сумму нельзя приобрести транспортное средство');

end.

№ 1) Найти площадь поверхности куба со стороной а.

№2) Написать алгоритм нахождения максимального среди четырех целых чисел.

№3) Среди чисел а, b, c определить количество положительных.

См. картинки.

Объяснение:

№1) Определяем целые переменные S, a

Пользователь вводит значение переменной а

Расчёт поверхности по формуле S = 6*a^2 присваиваем переменной S

Вывод переменной S

№2) Здесь определение наибольшего числа осуществляется при разветвляющегося алгоритма:

Если [условие выполняется], то [следует действие 1], иначе [действие 2].

№3) Операция mod находит дробную часть введённого числа.

Например, если 23 : 2, то 11 - целая часть, 0,5 - дробная.

Запись а mod 2 = 0, означает, что программа сравнивает остаток с нулём. Если остаток - нуль, то число чётное (делиться на 2 без остатка).

Записываем значение в переменную i, увеличивая счётчик.