Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>
1.
var x,y:real;
begin
write('x = ');
readln(x);
if x>0
then begin y:=sin(x); writeln('y = ',y); end
else writeln('При x<0 функцию не вычисляем почему-то');
end.
Пример:
x = 1.8
y = 0.973847630878195
2.
var t1,t2:integer; v1,v2:real;
begin
write('t1 = '); readln(t1);
write('t2 = '); readln(t2);
v1:=20/t1; v2:=10/t2;
writeln('v1 = ',v1,' v2 = ',v2);
if v1 > v2
then writeln('Скорость до обеда была выше')
else writeln('Скорость после обеда была выше');
end.
Пример:
t1 = 5
t2 = 4
v1 = 4 v2 = 2.5
Скорость до обеда была выше
3.
var a,k1,k2,k3,k4:integer;
begin
write('a = '); readln(a);
k1:=a div 1000;
k2:=a div 100 mod 10;
k3:=a mod 100 div 10;
k4:=a mod 10;
if (k1<>k2)and(k1<>k3)and(k1<>k4)and(k2<>k3)and(k2<>k4)and(k3<>k4)
then writeln('Все цифры числа различны')
else writeln('В числе есть повторяющиеся цифры');
end.
Пример:
a = 5135
В числе есть повторяющиеся цифры
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var s:= new stack<integer>;
var n:integer;
Writeln('Вводите числа, ноль завершает ввод');
repeat
Read(n);
if n<>0 then s.Push(n);
until n=0;
for var i:=1 to s.Count do begin
Write(s.Peek,' ');
s.Pop
end;
Writeln
end.
кажется так
javascript:var a = []; for (let сч = 0; сч < 10; сч++) a.push(prompt()); a.forEach(function (зн, ном) { document.write(зн + (ном == 4 ? "<br />" : "; ")); });
22(10) = 16+4+2 = 2^4+2^2+2^1 = 10 110(2)
03(10) = 2+1 = 2^1+2^0 = 11(2)
2003 = 1024+512+256+128+64+16+2+1 =
= 2^10+2^9+2^8+2^7+2^6+2^4+2^1+2^0 = 11 111 010 011(2)
22(10) = 16+4+2 = 4^2+4^1+2*4^0 = 112(4)
3(10) = 3*4^0 = 3(4)
2003(10) = 1024+3*256+3*64+1*16+3 =
= 1*4^5+3*4^4+3*4^3+1*4^2+3*4^0 = 133 103(4)
22(10) = 16+6 = 2*8^1+6 = 26(8)
3(10) = 3(8)
2003(10) = 3*512+7*64+2*8+3 = 3*8^3+7*8^2+2*8^1+3 = 3723(8)