Type Massiv=array[1..100] of integer;
var
a,b:Massiv;
n,i,j,p:integer;
begin
randomize;
write('Ввод n=');
readln(n);
writeln('Нужно неубывание (1) или невозрастание (2)?');
readln(p);
if p=2 then p:=-1;
writeln('Массив:');
a[1]:=random(20)-5;
for i:=2 to n do a[i]:=a[i-1]+p*random(5);
write('(');
for i:=1 to n do write(a[i],' ');
write(')');
writeln;
i:=1; j:=0;
while i<n do
begin
if a[i]=a[i+1] then begin inc(j); b[j]:=a[i]; end;
while (i<n)and(a[i]=a[i+1]) do inc(i);
inc(i);
end;
writeln('Новый массив:');
for i:=1 to j do write(b[i]:4);
readkey
End.
Пример:
Ввод n=20
Нужно неубывание (1) или невозрастание (2)?
1
Массив:
(11 12 12 12 16 16 17 21 25 25 26 30 30 32 36 36 38 42 45 47 )
Новый массив:
12 16 25 30 36
надо перевести час в минут для удобства
квадратный метр значит метр на метр.
--- если высота 1 метр
n = int(input())
l = int(input())
#вычислить сколько тканей при 1кв. метр
n=n*60 #переводим в минуты
a=n//5
#теперь осталось вычислить с l шириной
print(a*l," при высоте 1 метр")
--- если высота и ширина одно и тоже
n = int(input())
l= int(input())
t = 5 # минут
t=t* (l*l) выисляем сколько надо времени на l квадратный метр
print(n*60//t)# *60 для перевода в минуты
N ⵗ 9 <span>ⵗ 3
Где N - число
N </span>ⵗ 9 - число кратно (делится нацело, без остатка) на 9.
N ⵗ 9 <span>ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.
</span>
Ответ:
<em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em>
Объяснение:
<em>н</em><em>а</em><em>з</em><em>н</em><em>а</em><em>ч</em><em>е</em><em>н</em><em>и</em><em>е</em><em> </em><em>клавишы</em><em> </em><em>D</em><em>e</em><em>l</em><em>e</em><em>t</em><em>e</em><em>:</em><em> </em><em>э</em><em>т</em><em>о</em><em> </em><em>озн</em><em>а</em><em>чает</em><em> </em><em>у</em><em>д</em><em>а</em><em>л</em><em>и</em><em>т</em><em>ь</em><em> </em><em>с</em><em> </em><em>а</em><em>н</em><em>г</em><em>л</em><em>и</em><em>й</em><em>с</em><em>к</em><em>о</em><em>г</em><em>о</em><em> </em><em>п</em><em>е</em><em>р</em><em>е</em><em>в</em><em>о</em><em>д</em><em>а</em><em>.</em>
//PascalAbc.net V 3.3
const n = 30;
var a:array[1..n] of integer;
n3,n4,n5,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(3,5);
if a[i]=3 then inc(n3);
if a[i]=4 then inc(n4);
if a[i]=5 then inc(n5);
end;
writeln('3 - ',n3);
writeln('4 - ',n4);
writeln('5 - ',n5);
print(a);
end.