// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.
1) 1 байт- 8 битов
2) 213 бит - 0,0266 кбайт
3) 1 мбайт - 1 х 10 < -2, 0,001 байт, 0,08 бита.
4) 1,536 кбайт, 1536 байт = 12.288 бит.
Ответ:
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int x,y;
cin >> x >> y;
cout << ((sin(x)+cos(x))/(cos(x)-sin(x)))*tan(x*y);
}
Объяснение: