Var a, b: integer;
begin
readln(a, b);
writeln('Первое число = ', a);
writeln('Второе число = ', b);
if (a + b) mod 5 = 0 then
writeln('Сумма двух чисел кратна пяти.')
else
writeln('Сумма двух чисел не кратна пяти.');
end.
Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
program P1;
uses
crt;
var
mas : array[1..20] of integer;
i,j,k : integer;
tmp : string;
begin
clrscr;
writeln('Start array: ');
for i := 1 to 20 do
begin
mas[i] := random(100);
write(mas[i],' ');
end;
for i := 1 to 20 do
begin
if mas[i] mod 2 = 0 then
mas[i] := 0;
end;
for i := 1 to 20 do
begin
if mas[i] = 0 then
begin
for j := 20 downto i do
if mas[j] <> 0 then
begin
k := mas[j];
mas[j] := mas[i];
mas[i] := k;
end;
end;
end;
writeln('');
writeln('Result array: ');
for i := 1 to 20 do
write(mas[i],' ');
readln(tmp);
read(tmp);
end.
Это то же самое, что и кодовая страница;