9=3x3 или же красный дом с красной желтой и синей крышами синий с красн жел и син крышами и желтый дом с красн желт и син крышами
изспользуй функцию Power
для извлечения кубического корня возведи число в степень 1/3
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
a.Where(x->x>0).Sum) // 5
end.
<u><em>Тестовое решение:</em></u>
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112
Var
a, n: longint;
v1, v2, v3: byte;
s: byte;
begin
readln(a);
n := a;
v1 := 0;
v2 := 0;
v3 := 0;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
if (s = 3) then
v1 := 1;
if (s = 2) then
v2 := 1;
if (s = 5) then
v3 := 1;
end;
if (v1 = 1) then
writeln('В этом числе есть цифра 3')
else
writeln('В этом числе нет цифры 3');
if (v2 = 1) and (v3 = 1) then
writeln('В этом числе есть цифры 2 и 5')
else
writeln('В этом числе нет одновременно цифр 2 и 5');
end.
