Язык: Паскаль
var t: byte;
begin
readln (t);
if (t<10) then
writeln ('Вы уже проснулись?');
if (t=12) then
writeln ('Не пора обедать?');
if (t>=18) then
writeln ('Ещё не вечер!')
else
writeln ('Как работается?')
end.
5589 = 931 * 6 + 3
931 = 155 * 6 + 1
155 = 25 * 6 + 5
25 = 4 * 6 + 1
4 = 6 * 0 + 4
Записываем числа после плюса справа налево: 41513.
10₂ = 1 * 2^1 + 0 * 2^0 = 2₁₀.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>
#include <iostream>
#include <string>
int main ()
{
std::string a;
std::cin>>a;
std::cout << a.length();
return 0;
}