//PascalABC.NET
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;
end.
#include <iostream>
<span>#include <cmath>
</span><span>using namespace std;
</span>int main() {
<span> float x,y,z,t,ks;
</span><span> t=3.0;
</span><span> cout<<"x = "; cin>>x;
</span><span> cout<<"y = "; cin>>y;
</span><span> cout<<"z = "; cin>>z;
</span><span> ks=abs(pow(x,y/x)-pow(y/x,1/t))+(y-x)*
</span><span> (cos(y)-z/(y-x))/(1+pow((y-x),2));
</span><span> cout<<ks<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
x = 1.825e2
y = 18.225
z = -3.298e-2
1.2132
</span>
Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}
Зимой и летом одним цветом
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.