Это что, метод решения показать ?!<span>Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия!
Что за чем:
1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов)
2 - выбор приборов для исследования
3 - сборка электрической цепи
4 - определение параметров цепи по показаниям приборов
5 - анализ полученных данных
6 - общий вывод
7 - сверка полученного результата с заданным конструктором решением
8 - анализ ошибочных действий исследователем (если они допущены)
Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))</span>
Var x:string;
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.
Для того чтобы хранить информацию поступающую в компьютер путем внешнего воздействия
1) 16∧2x-1(бит)= 128(Гб)
128(Гб)=1099511627776 (бит)
16∧2x-1(бит)= 1099511627776 (бит)
16∧2x-1(бит)= 16∧10 (бит)
отсюда х= 5,5
2) 2000*4000=8000000 символов всего
1 символ=1 бит
8000000 бит : 8 =1000000 байт:1024= 976,5625 Кб:1024≈0,9 Мб
Var num:integer;
begin
writeln('0 - выход');
repeat
write('Введите число: ');
readln(num);
if(((num mod 11) = 0) or ((num mod 17) = 0)) then writeln('Это число делится на 11 или 17')
else writeln('Это число не делится ни на 11, ни на 17');
until num = 0;
end.