Var x,y : real;
function F(x:real):real;
begin
if x>0 thenF:=(x*x*x-(5*x))/18
else
F:=(x*x-(6*x))+15;
end;
begin
read(x);
y:=F(x);
Writeln(y);
end.
Ответ:
С++ :
#include < iostream >
using namespace std ;
int main (){
int a , b , mn ;
cin >> a >> b ;
int F[a][b];
int A[a][b]={1};
for (int i= 0 ; i < a; a++)
{
for (int j = 0 ; j<b ; j ++ ){
cin >> F[i][j];
}
}
for (int i= 0 ; i < a; a++)
{
for (int j = 0 ; j<b ; j ++ ){
if (F[i][j]%2==1){
if (F[i][j]%3==2){
A[i][j]=F[i][j];
}
}
}
}
for (int i= 0 ; i < a; a++)
{
for (int j = 0 ; j<b ; j ++ ){
mn = A[i][j]*A[i][j-1];
}
}
cout << mn;
return 0 ;
}
Объяснение:
Страны, материки, ладшафты, карты
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.