1 символ = 1 байт
40*50*10=20000 символов всего
12500 байт = 1562,5 бит
20000:1562,5=13 (приблизительно)
N-мощность алфавита
2^13=8192
Ответ: N=8192
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
Дверь открыть
замок замкнуть ключь и открыть или провернуть
окно открыть
стекло разбить или стукнуть
машину толкать
сиденье сидеть.
Это программа определяет минимальный элемент в массиве
Элементов всего 8
Изначально считается минимальным первый элемент т. е 3
Далее идет проверка в
Первый элемент проверяется со вторым ( 3 < 8) да один раз выполняет
ся , минимальным считается значение массива равное 3
Следующая проверка ( 3< 7) да втрой раз выполняется
Запоминается 3 и т.д .
3 будет меньше 8, 7,9, 4, 10, ( Итого пять раз)
Предпоследнее действие 3 сравнивается с 2 ( условие ложно) не выполняется( не подсчитывается)
И последний проход 3< 12 ( да, истинно) подсчитывается
Итого 6 раз
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.