5. Запишите число, которое будет напечатано в результате выполнения следующей программы. Для Вашего удобства программа представлена на пяти языках программирования. Алгоритмический язык

алг
нач
    цел s, n
    s := 600
    n := 10
    нц пока s + 2*n >= 320
        s := s − 50
        n := n + 10
    кц
    вывод s
кон

 
6. Определите, что будет напечатано в результате работы следующего фрагмента программы:
Алгоритмический язык

алг
нач
    цел n, s
    n := 4
    s := 15
    нц пока s <= 250
        s := s + 12
        n := n + 2
    кц
    вывод n
кон то​

Рассматриваем однобайтное представление целых чисел. Старший (левый) разряд знаковый, остальные семь хранят число в дополнительном двоичном коде.
У положительного числа в знаковом разряде 0, у отрицательного единица.
Для положительного числа прямой, обратный и дополнительный коды совпадают.
У отрицательного числа в обратном коде все биты, кроме знакового, инвертируются. Для получения дополнительного кoда число в обратном коде арифметически увеличивается на 1.
Чтобы получить для отрицательного числа прямой код, нужно инвертировать все его биты, кроме знакового, а затем арифметически увеличить код на 1.

Uses Crt;

var
   a,b:integer;
   s1,s2:byte;

begin
   ClrScr;
   Write('Введите 3-х значное число: '); Read(a);
   Write('Введите 2-х значное число: '); Read(b);
   s1:=a div 100+(a div 10) mod 10+a mod 10;
   s2:=b div 10+b mod 10;
   if s1>s2 then Writeln('Сумма цифр 3-х значного числа больше')
   else
      if s2>s1 then Writeln('Сумма цифр 2-х значного числа больше')
      else Writeln('Суммы цифр обоих чисел одинаковы');
   ReadKey
end.

Пример
Введите 3-х значное число: 513
Введите 2-х значное число: 97
Сумма цифр 2-х значного числа больше