Типичное задание на круги Элепса Ответ:4213
– ∙ /– ∙ /– ∙ – /– ∙ /∙ – ∙ ∙ /– ∙ – /∙ ∙
н– ∙ к– ∙ – и∙ ∙ л∙ – ∙ ∙ м– –
ннкнлки
125,34(10) = 1*10^2+2*10^1+5*10^0+3*10^(-1)+4*10^(-2)
выделенные цифры:
1 -число сотен
2 -число десятков
5 -число единиц
3 -число десятичных
4 -число сотых
Var a,a1,a2,a3: integer;
begin
write ('Введите трехзначное число: '); read (a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln ('Полученное число: ',a3,a1,a2);
end.
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.