Var a,b,s:integer;

begin

a:=1;

b:=2;

while a+b<8 do

begin

a:=a+1;

b:=b+2;

end;

s:=a+b;

writeln ('s=', s)

end.

Постройте блок-схему к программе

Популярно: Информатика

• 

  EpicKsushaGames

  28.10.2022 06:45
  Для букв А, Б и В использовали такие кодовые слова: А – 0, Б – 10, В...
• 

  Otahalepi

  28.12.2022 12:14
  Составить программу DELPHI, которая вычисляет сумму нечётных чисел отрезка...
• 

  22Cat22

  03.07.2021 08:50
  Начертите, используя два вс алгоритма. 55000 используя кумир (чертежник)...
• 

  kristina5171

  06.12.2020 10:27
  Знайти дільники числа N. ТУ. У стандартному вхідному потоці дано ціле...
• 

  SpecialCat

  16.07.2020 00:49
  В кондитерской для детского праздника заказали булочки с разными начинками:...
• 

  79521312181

  03.12.2020 10:16
  Пещера с монстрами Юный программист Коля играет в компьютерную игру....
• 

  АртемGoloborshev

  06.03.2022 04:46
  Найти наибольшее из нечетных компонент каждого столбца и наименьшее из...
• 

  Pomogihd

  12.04.2021 19:13
  Даны два целых числа а и b. посчитать их разность, сумму, произведение,...
• 

  01mrfrost10p0cb3m

  06.02.2023 02:48
  Қосмекенділер фонетикалық талдау​...
• 

  66PrIvEt66666

  05.04.2021 11:34
  Сұрақтарға жауап бер. 1.Кәсіп деген не? 2.Кәсіп таңдаудағы негізгі мақсат...