Ответ:
Program Massiv; //Заголовок программы
const n=12;
var i,m,p:integer; s: array[1..n] of integer;
begin
p:=1;
for i :=1 to n do
s[i]:= random (10,44);
for i :=1 to n do begin
if (s[i] mod 5) = 0 then p:= p * s[i];
end;
writeln(s);
if p = 1 then
write('Нет элементов кратных 5')
else
write('p = ', p);
end.
Объяснение:
программа описана в файле ворд
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.
3) a)Z2:AH3; б) N2:R2
Y5:AA6 U2:U4
AF5. Q4:S4.
4)C3*$B$1
D1*$B$1
E4*$B$1
F2*$B$1
5)D5)35
E2)22
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub