1. Найдем сколько байт\сек. 5000 / 10 = 500 байт\сек.
2. Зная, что 500 байт = 800 символов, т.е 512 000 бит / 800 симв = 640 бит/символ.
3. N=2^I N=2^640, Где I вес одного символа. Кстати, 640 бит = 80 байт, поэтому алфавит будет огромным.
Если было число ABC = X, то после деления на 10 стало AB, а после приписывания слева CAB = N. Для получения из N числа X просто переставляем первую цифру в конец.
var
N: integer;
begin
readln(N);
write(10 * (N mod 100) + (N div 100))
end.
Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
Команда умножить на 3 в данном случае бессмыслена,так как 8*3=24,получается есть только одна программа -8 +2 +2 +2 +2 +2=18