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

ответ 5

Объяснение:

50 - 1 -2 -3 -4 -5 -6 -7 -8 -9

1. Составьте варианты поисковых запросов на интересующую) вас тему в интернето и в библиотеке.

2. Постарайтесь классифицировать полученные данные по степени

важности (приоритетности) для последующей проработки: какими источниками заниматься в первую очередь, во вторую и т. п.

3. Выделите информацию, не содержащую противоречий и неподлежащую сомнению.

4. Обобщите данные, которые трактуются неоднозначно, на которые существуют противоречивые точки зрения.

5. Определите, на какие фундаментальные знания вы опираетесь при проверке данных в первую очередь,

6. Составьте архив нужных файлов.​​Объяснение:

Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.