1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
<!DOCTYPE html>
<html>
<head>
<metacharset="UTF-8"
<title>Пример пустой веб-страницы</title>
</head>
<body>
</body>
</html>
//Pascal
//1)
var
A: array [1..20] of integer;
i, j, k: integer;
begin
randomize;
writeln('***Сгенерированный массив***');
for i := 1 to 20 do
begin
A[i] := random(200)+100;
write(A[i]:4);
end;
for i := 1 to 20-1 do
for j := 1 to 20-i do
if A[j] > A[j+1] then
begin
k := A[j];
A[j] := A[j+1];
A[j+1] := k;
end;
writeln;
writeln('***Массив после сортировки***');
for i := 1 to 20 do
write(A[i]:4);
readln;
end.
//2)
var
A: array [1..10, 1..10] of integer;
i, j, k, N, M, buf: integer;
begin
randomize;
writeln(' ***Сгенерированный массив***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
A[i, j] := random(51);
write(A[i, j]:4);
end;
writeln;
end;
write('Введите номер столбца для сортировки: ');
readln(M);
for j:=m to m do
begin
for k:=1 to 10 do
for i := 10 downto k+1 do
if A[i-1,j]>A[i,j] then
begin
buf:=A[i,j];
A[i,j]:=A[i-1,j];
A[i-1,j]:=buf;
end;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
write('Введите номер строки для сортировки: ');
readln(N);
for i:=n to n do
for j:=1 to 10-1 do
for k:=j+1 to 10 do
if A[i,j]>A[i,k] then
begin
buf:=a[i,j];
A[i,j]:=A[i,k];
A[i,k]:=buf;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
readln;
end.