uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
Var
i, n, s: longint;
d, k: integer;
begin
i := 3; k := 0;
repeat
s := 1;
for d := 2 TO Trunc(sqrt(i)) do
begin
n := (i div d);
if n * d = i then s := s + d + (i div d);
end;
if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
if s = i then k := k + 1;
i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.
Тестовое решение:
Третье совершенное число равно 496
const
k=35; { k-е по порядку простое число }
var
i,j,n,m:integer;
begin
n:=1; i:=1;
repeat
j:=2;
m:=round(sqrt(i));
while (i mod j <>0) and (j<=m) do j:=j+1;
if j>m then n:=n+1;
i:=i+1
until (n=k);
Writeln(i-1)
end.
Тестовое решение:
137
var
n, d1, d2, d3: integer;
begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.
Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное
*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
\% - операция остатка от целочисленного деления
Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
program p1;
var
y, e, x, d:real;
begin
y:=ex * d;
readln(e);
readln(x);
readln(d);
writeln(y);
end.
