1-4
2-вообще, программа составлена неверно(being), но если не считать этого, то i=s=5
5-3
6-(A*B)/(C*D)/E
7-не указан символ ";" после команды 2c:=b2*b2
8-10
9-4
10-(ac+bc^2-bcd-a+b^2)/(bc)+0.11
5589 = 931 * 6 + 3
931 = 155 * 6 + 1
155 = 25 * 6 + 5
25 = 4 * 6 + 1
4 = 6 * 0 + 4
Записываем числа после плюса справа налево: 41513.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите a и b через пробел:');
var y:=1/a+1/b;
Writeln('y=',y)
end.
<u>Пример</u>
Введите a и b через пробел: 3.8 7
y=0.406015037593985
Const n=20;
var a:array[1..n] of integer;
b,c,i:integer;
begin
Randomize;
for i:=1 to n do
begin
b:=random(8)+1;
c:=random(9-b)+b+1;
a[i]:=b*10+c;
write(a[i]:4);
end;
writeln;
end.
Пример:
<span> 89 67 19 69 49 67 45 26 79 69 67 79 78 16 38 69 35 57 79 46</span>
Const Sz = 100; // Размер массив
var
a: array [1..Sz] of integer;
.