Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
Int main ()
{
int x;
std::cin >>x;
if x>0 std::cout << "1" else
if x<0 std::cout << "-1" else
std::cout << "0";
return 0;
}
Смотри хороший сайт_pascal.helpov.net
Const n=4;
<span> m=3;
</span><span>var a: array[,] of integer;
</span><span> b: array of integer;
</span><span> i,j,k: integer;
</span><span>begin
</span><span> setlength(b,n*m);
</span><span> setlength(a,n,m);
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> for i:=0 to n-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=random(-10,10);
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>// удаление строк массива
</span><span> k:=0;
</span><span> for i:=0 to n-1 do
</span><span> if a[i,0]<=a[i,m-1] then
</span><span> begin
</span><span> k:=k+1;
</span><span> for j:=0 to m-1 do
</span><span> b[(k-1)*n+j]:=a[i,j];
</span><span> end;
</span><span>// печать нового массива
</span><span> writeln('новый массив:');
</span><span> setlength(a,k,m);
</span><span> for i:=0 to k-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=b[i*n+j];
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>end.
</span>исходный массив:
<span> -3 5 -5
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span> 3 -4 -7
</span><span>новый массив:
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span>
</span>
<span>
</span>
Первым изобретателем, механических счетных машин, стал гениальный француз Блез Паскаль. Сын сборщика налогов, Паскаль задумал построить вычислительное устройство, наблюдая бесконечные утомительные расчеты своего отца. В 1642 г., когда Паскалю было всего 19 лет, он начал работать над созданием суммирующей машины. Паскаль умер в возрасте 39 лет, но, несмотря на столь короткую жизнь, навечно вошел в историю как выдающийся математик, физик, писатель и философ. В его честь назван один из самых распространенных современных языков программирования.
Суммирующая машина Паскаля, «паскалина», представляла собой механическое устройство - ящик с многочисленными шестеренками. Всего приблизительно за десятилетие он построил более 50 различных вариантов машины. При работе на «паскалине» складываемые числа вводились путем соответствуюшего поворота наборных колесиков. Каждое колесико с нанесенными на него делениями от 0 до 9 соответствовало одному десятичному разряду числа - единицам, десяткам, сотням и т. д. Избыток над 9 колесико «переносило», совершая полный оборот и продвигая соседнее слева «старшее» колесико на 1 вперед. Другие операции выполнялись при помощи довольно неудобной процедуры повторных сложений.