===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double m[10][10];
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++) {
cout << "Введите значение массива" << "[" << i << "]" << "[" << j << "]" << endl;
cin >> m[i][j];
if (j % 2 == 0) m[i][j] = pow(m[i][j],3);
}
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++)
cout << "m[" << i << "]" << "[" << j << "]=" << m[i][j] << endl;
return 0;
}
Ответ:
Больше 9 дней
Объяснение:
Больше 9, так как если чебурашка ошибается, и дом строить не больше 9 дней, то он не может строиться больше 10.
Program zadacha;
Var x,y,z,ans:Int64;
Begin
ReadLn(x,y,z);
If (x>0) and (y>0) and (z>0) then Inc(ans);
If (ans=0) then WriteLn('Такой треугольник построить нельзя') else begin
Write('Такой треугольник можно построить');
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным') else
If(x=y) and (x=z) and (z=y) then Write(', он будет равносторонним')else
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным');
<span>If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then </span>
<span>write(', он будет прямоугольным.') else</span>
<span> If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(', он будет остроугольным.')</span>
<span>else write(', он будет тупоугольгым.');</span>
end;
End.
<u><em>ps: не забудь пометить как лучшее решение плизз)</em></u>