Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722
В августе 1981 года IBM выпустила компьютерную систему IBM PC (фирменный номер модели IBM 5150). Полугодичный план его продаж был выполнен за месяц. Его популярность была обусловлена егооткрытой архитектурой, что позволяло сторонним фирмам осуществлять его ремонт, обслуживание, а также производство периферийных устройств. К 1988 году было произведено 25 миллионов IBM-совместимых ПК, но из них лишь немногим более 15 миллионов — самой IBM.