Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!
#include<iostream>
#include<cmath>
using namespace std;
int main()
{
int a, j = 0;
cin >> a;
int k = a;
while(k>0) {
j += k % 10;
k /= 10;
}
if (pow(j,3) == pow(a, 2))
cout << "Куб суммы цифр этого числа равен А*А." << endl;
else
cout << "Куб суммы цифр этого числа не равен А*А." << endl;
}
Объяснение:
во вложении....
^ – не ставится, но действие выполняется!