program c1;
uses crt;
var a: array [1..5] of integer;
max,k,i: integer;
begin
clrscr;
for i:=1 to 5 do read (a[i]);
k:=0;
max:=1;
for i:=2 to 5 do
if a[i]>a[max] then max:=i;
for i:=1 to 5 do
if a[i]=a[max] then k:=k+1;
writeln ('Кол-во макс. элементов = ',k);
end.
Это на первую
program chislo;
<span> var a,b,c,k,x: integer;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
k:=a*b*c;
writeln('произведение чисел = ',k);
readln;
End.
Вторая Задача
</span>
program chislo;
var a,c,x: integer;
k:real;
Begin
Writeln('Введите трехзначное число:');
readln(x);
a:=x div 100;
c:=x mod 10;
k:=a/c;
writeln('деление чисел = ',k);
readln;
<span>End.</span><span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>