Program test;
<span>var n: integer; </span>
<span>begin </span>
<span>writeln(' n = '); read(n); </span>
<span>writeln(' сотен = ' , n div 100); </span>
<span>end; </span>
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var a:=ArrRandom(30,-100,100).Println;
writeln('положительные числа кратные 5:');
a.Where(x->(x mod 5=0) and (x>0)).Println;
end.
1) m = 0;
2) m = m+2 = 0+2 = 2;
3) m = 3*m = 3*2 = 6;
4) m = m-2 = 6-2 = 4;
5) m = m*m = 4*4 = 16;
Program abc;
var a,b,c,d,e,f:integer;
begin
readln(a);
b:=a+1;
c:=a*2;
d:=a*(-1);
e:=abs(a);
f:=sqr(a);
writeln('Следующее число=',' ',b,' ','Удвоенное число=',' ',c,' ','Противоположное число=',' ',d,' ','Модуль числа=',' ',e,' ','Квадрат числа=',' ',f);
<span>end.
Вот тебе программа для Pascal что бы проделывать такую ерунду с любым числом:)</span>