//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
Program a1;
var a,b,c,x,x1,x2,d:real;
begin
write('Введите а '); read(a);
write('Введите b '); read(b);
write('Введите c '); read(c);
begin
d:=sqr(b)-4*a*c;
if d<0 then
begin
write('Нет корней');
end
else
begin
if d=0 then
begin
x:=-b/(2*a);
write('x=' , x);
end
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('x1=',x1,'x2=',x2);
end;
end;
end;
end. <span> </span>
program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
type
mas = array [1..10] of integer;
var
m : mas;
a,l : integer;
function re () : integer; //Считываем число
var a : integer;
begin
writeln ('Введите число');
readln (a);
Result :=a;
end;
function C(var m : mas; a : integer) : integer; //Разбиваем на числа
var i : integer;
begin
i := 0;
While a > 0 do
begin
i := i +1;
m[i] := a mod 10;
a := a div 10;
end;
Result := i;
end;
procedure wr (a : mas; l : integer); // Вывод массива
var i : integer;
begin
writeln ('Resultat :');
for i := 1 to l do
write (a[i],' ');
end;
procedure sort (var a : mas; l : integer); // перевернуть массив
// т.е 1234 -> 4321
var i,buf : integer;
begin
for i := 1 to l div 2 do
begin
buf := a[l-i+1];
a[l-i+1] := a[i];
a[i] := buf;
end;
end;
begin
a := re();
l := C(m,a);
sort (m,l);
wr (m,l);<span>
end.
на примере числа
125
после выполнения функции C
m[1] = 5 m[2] =2 m[3] =1
после выполнения процедуры Sort
m[1] =1 m[2] =2 m[3] =5
Вывод на экран элементов массива через пробел
1 2 5
</span>
1101111011,01(2)=1573.2(8)=37B.4(16)
11010,101(2)=32.5(8)=1A.A(16)
1011010011,01(2)=1323.2(8)=2D3.4(16)
101000010,0111(2) =502.34(8)=142.7(16)