Var
x:Real;
begin
Readln(x);
Writeln('x = ', x, ' y = ', (10-5*x)/(sqrt(x*x - 6*x + 10)));
end.
#include <iostream>
using namespace std;
int main()
{
int x, a, p;
cin >> x;
a = x / 2000 + 1;
p = ????????????;
cout << a << " " << p;
getchar();
getchar();
return 0;
}
Вроде так(я просто в пятом классе и недавно начал изучать программирование)
<u>// PascalABC.NET 3.2, сборка 1467 от 02.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Вводите:').ToWords.Where(w->(w.Length).IsOdd)
.Where(w->w.Right(2)='ая').Println
end.
1200/8(переводим в байты)= 150 байт/с
если мы делим на 1 сек то надо * на 14 сек
150*14= 2100 байт за 14 сек