Заметим, что a - это счетчик, считающий кол-во выполнений цикла.
Т.к по условию программа выводит сначала 2, то цикл выполняется 2 раза.
В переменной b с конца отрезаются два остатка, а их сумма суммируется.
x div 100 отрезает сотни, делаем вывод о том, что число трехзначное.
Ответ: 800
Данные с твоим именем, пароль не должен никаким образом совпадать с логином.
Вот программа:
uses Crt;
var i: integer;
begin
ClrScr;
for i:=65 to 90 do
Write(Chr(i):4);
WriteLn; WriteLn;
for i:=97 to 122 do
Write(Chr(i):4);
WriteLn;
ReadLn;
end.
Var
a:array[1..10] of integer;
i,k,l:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
write('Введите сравнительное число: ');
readln(l);
writeln('Вычисляем...');
k:=0;
for i:=1 to 10 do
if a[i]<l then k:=k+1;
writeln(k,' чисел меньше ',l);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600