//PascalABC.NET 3.2
begin
var k := ReadInteger;
var x := ReadReal;
write(k = 1 ? sin(x) : cos(x))
end.
В первой задаче после выполнения программы переменная P будет равна 24.
Во второй задаче переменная S будет равна 12.
В третьей задача переменная S будет равна 41.
В четвёртой задаче переменная c будет равна 9.
В пятой задаче переменные x и t будут равны 5, а переменная y = 11.
Program keklol;
var y,x:integer;
writeln('vvedite y',y);
readln(y);
writeln('vvedite x',x);
readln(x);
y=1/(x*x*x)+(2sqr(x))+x
end.
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int a, b, c, x;
cin >> x;
if ( x<=999 ) {
a = (x / 100)%10;
b = (x / 10)%10;
c = (x / 1)%10;
if ( a == b && b == c && a == c){
cout << "Все цифры одинаковые" <<endl;
} else if ( a == b || b == c || a == c ){
cout << "Есть одинаковые цифры" << endl;
} else {
// (по усл. не треб.) cout << "Все цифры разные " <<endl;
}
}
return 0;
}
<span>в) Олимпиада - правильный ответ</span>