Ответ: 38 учеников. Примерно 50/50 мальчиков и девочек
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllText('mas102.txt').ToWords;
var s:=BigInteger(0);
foreach var w in a do s+=w.ToBigInteger;
Writeln(s mod 104);
end.
<u>Результат</u>
20
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := (Random(4, 10), Random(4, 10));
Writeln('*** Исходный массив ***');
var a := MatrRandomReal(m, n, -99, 99);
a.Println(8, 3);
Writeln('*** Полученный массив ***');
a.SwapCols(1, a.ColCount - 1);
a.Println(8, 3)
end.
Пусть x - возраст Бори , y - возраст компьютера. Тогда по условию:
x+y = 10;
После дополнения условия получаем:
x+y+3 = 10 + 3 = 13.
Ответ: 13
Сортировка методом пузырька:
const n=10;
Var a:array[1..n] of integer; i,j,b:integer;
Begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
for i:=1 to n do write(a[i],' ');
End.