// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу S.
// Стороны должны быть выражены натуральными числами.
// При этом решения, которые получаются перестановкой размеров сторон, считаются разными.

var S,i : word;
Begin
writeln ('Введите площадь прямоугольника');
readln (S);
writeln ('Возможные прямоугольники:');
for i:=1 to S do
begin
if (S mod i)=0 then
begin
writeln ('сторона а=',i,' сторона b=',S/i);
end;
end;
<span>End.</span>

0 0

4 года назад

Помогите написать программу в паскале. Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив

Сергейф17

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

const

m = 99;

var

n,i, j: integer;

A,: Array[1..m] of integer;

begin

Randomize;

write('n = ');

readln(n);

for i := 1 to n do

begin

repeat

j := Random(n) + 1

until A[j] = 0;

A[j] := i;

end;

for i := 1 to n do

write(A[i]:3);

writeln;

end.

0 0

4 года назад

Рассчитайте S комнаты по её длинне 15 м и ширины 4 м

каптро [49]

Если на Паскале ,то вот

0 0

4 года назад

Запишите формулу для Paskal (x+1/x-1)^x+18xy^2 Срочно!!!!!!

alexzubr

A:=x+1/x-1
b:=a;
for i:=1 to x do b:=b*a;
b:=b+18*x*(y*y);

0 0

3 года назад