//PascalABC.NET 3.2
begin
var k := ReadInteger;
var x := ReadReal;
write(k = 1 ? sin(x) : cos(x))
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 ;
}
Объяснение:
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.