найти разложение натурального числа N на множители.
Входные данные
Натуральное число N (1 Выходные данные
В единственной строке выведите ответ. Множители должны идти по неубыванию.
Пример
Вход Выход
12 2*2*3
18 2*3*3
мой код во вложении, почему-то валится на каком-то 4 тесте.
Begin
Write (‘введіть кількість проживаючих на острові Робінзонів:’);
Readln(P);
Write (‘введіть довжину острова у метрах:’);
Readln(K);
Write (‘введіть площу, яка визначена законом для проживання одного Робінзона:’);
Readln(S);
Plostr:=K*K;
VSostr:=Plostr-S*P;
If VSostr < 0 then write(‘Права Робінзонів порушені, так як площі острова не достатньо’)
Else
Begin
If Vostr=0 then write (‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають’)
Else
Begin
KP:=VSostr div P;
If KP>0 then write(‘ На острові можуть бути поселені ще ’,KP,’ Робінзон(ів)’)
Else write(‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають ’);
End;
End;
Readln;
End.
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
Программа на языке Паскаль:
const pi = 3.14;
var d, h, b: real;
top, wall, q: real;
q_int: integer;
begin write('Диаметр: ');
readln(d); write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.