1.с:<span>щелкнуть левой кнопкой мыши слева от строки текст
</span>2.b.:<span>комплекс аппаратных и программных средств обработки информации</span>
Var b, m, a: real;
mm: integer;
begin
read(b, m, a, mm);
writeln(power(b, m));
writeln(power(a, 5.0));
writeln(max(0, (12 + 6 * (mm div 6 - 1)) * (mm div 6) div 2));
end.
Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i]>=a[i+1] then b:=false;
if b
then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Пример:
5.3 1.4 0.2 6.1 5.7 0.8 3.4 6.2 6.2 8.4
Последовательность не возрастающая
Не стыдно тебе(((((Если не знаешь ставь наугад
D:\Школа\Ученики\Адреса\Успеваемость\Нарушения