Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
Const n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]<min then begin
k:=i;
min:=a[i];
end;
for i:=k+1 to n do
s:=s+a[i];
writeln('сумма после минимального = ',s:5:2);
for k:=1 to n do
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n do
write (a[i]:6:2);
end.
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Современные системы программирования обычно предоставляют пользователям мощные и удобные средства разработки программ. В них входят:
компилятор или интерпретатор;
интегрированная среда разработки;
средства создания и редактирования текстов программ;
обширные библиотеки стандартных программ и функций;
отладочные программы, т.е. программы, помогающие находить и устранять ошибки в программе;
"дружественная" к пользователю диалоговая среда;
многооконный режим работы;
мощные графические библиотеки; утилиты для работы с библиотеками
встроенный ассемблер;
встроенная справочная служба;
другие специфические особенности.
Популярные системы программирования — Turbo Basic, Quick Basic, Turbo Pascal, Turbo C.