Дано натуральное число. б) Верно ли, что произведение его цифр меньше 50? Вот код
var n,p:integer;
begin
write('n = ');
readln(n);
p:=1;
while n>0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
if p<=50
then writeln('Произведение цифр числа = ',p,' (<= 50)')
else writeln('Произведение цифр числа = ',p,' (> 50)');
end.
составить блок схему
Печатаешь на клавиатуре текст и он обрабатывается, а затем выводится на экран.
Прикоснулся к горячему чайнику, по телу пошёл сигнал в мозг (обработалась информация), что этот предмет слишком горячий, и мозг дал сигнал отдёрнуть руку.
Везде одни и те же правила:
Есть исходная(предварительная) инфа (музыка, текст, чайник) -> Техническое устройство или человек (т.е. кому эта инфа идёт и где она обрабатывается) -> воздействует на объект управления.(т.к. уже идёт реакция на обработанную инфу. Текст выводится на монитор компа, а мозг даёт ответный сигнал убрать руку от горячего чайника.)