Построить блок схему по коду. #include
using namespace std;

int main()
{
double s, s1, s2, s3;
cout << "1 tg (KZT) = 0.18 RUB" << "\n";
cout << "1 tg (KZT) = 0.0019 EUR" << "\n";
cout << "1 tg (KZT) = 0.0023 USD" << "\n";
cout << "Vvedity summu:", cin >> s, cout << "\n";
s1 = s*0.18;
s2 = s*0.0019;
s3 = s*0.0023;
cout << s << " tenge (KZT) = " << s1 << " RUB, " << s2 << " EUR, " << s3 << " USD" << "\n";
return 0;
}

ответ:команди тіла циклу, після чого знову обчислюється значення логічного виразу, і якщо це значення знову true, то знову виконуються команди тіла циклу, після чого знову обчислюється значення логічного виразу; якщо значення логічного виразу дорівнює false, то команди тіла циклу не виконуються, а виконується команда, наступна за циклом.

Звертаємо вашу увагу:

•    якщо в тілі циклу лише одна команда, то операторні дужки begin і end можна не ставити;

• серед команд тіла циклу можуть бути й лінійні фрагменти, і розгалуження, й інші цикли.

Розглянемо задачу, алгоритм розв’язування якої містить цикл з передумовою.

Задача. Скільки потрібно взяти доданків, перший з яких дорівнює заданому д ійсному числу, а кожний наступний на 3 більший від попереднього, щоб їхня сума перевищила 100?

Даними цієї задачі є перший доданок. Вводитимемо його в поле.

Перед початком циклу присвоїмо змінній s, яку використаємо для збереження суми, значення першого доданка. А змінній п, яку використаємо для збереження кількості взятих доданків, присвоїмо значення 1, бо в сумі вже враховано один (перший) доданок.

До суми потрібно додавати наступні доданки, поки ця сума буде меншою, або дорівнюватиме 100. Тому логічний вираз у заголовку циклу матиме вигляд s <= 100. У тілі циклу шукатимемо наступний доданок, додаватимемо його до поточного значення суми і збільшуватимемо кількість доданих доданків на 1.

Объяснение:

Задача 1.
const
  n = 10;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(21) - 10;
    Write(a[i]:4);
  end;
  Writeln;
  s := a[n];
  for i := n - 1 downto 1 do a[i + 1] := a[i];
  a[1] := s;
  Writeln('После циклического сдвига вправо на 1');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
  -2  -1   7  10   2  -7   9  -6  -5 -10
После циклического сдвига вправо на 1
 -10  -2  -1   7  10   2  -7   9  -6  -5

Задача 2.
const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101);
    Write(a[i]:4)
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
  31  60  14  17  46   6  46  97  60  88
Отсортированный по возрастанию массив
   6  14  17  31  46  46  60  60  88  97