На обработку данных поступает натуральное число не превышающее 10000000000.нужно написать программу,которая находит сумму цифр числа меньших 6,если таких нет,то выводится "нет"
Var n: longint; s: integer; p: boolean; begin s:=0; readln(n); while n > 0 do begin if n mod 10 < 6 then begin inc(s, n mod 10); p:=true; end; n := n div 10; end; if p = true then writeln(s) else writeln('Нет'); end.
Ты слушаешь музыку и эта информация обрабатывается с органов слуха. Печатаешь на клавиатуре текст и он обрабатывается, а затем выводится на экран. Прикоснулся к горячему чайнику, по телу пошёл сигнал в мозг (обработалась информация), что этот предмет слишком горячий, и мозг дал сигнал отдёрнуть руку.
Везде одни и те же правила: Есть исходная(предварительная) инфа (музыка, текст, чайник) -> Техническое устройство или человек (т.е. кому эта инфа идёт и где она обрабатывается) -> воздействует на объект управления.(т.к. уже идёт реакция на обработанную инфу. Текст выводится на монитор компа, а мозг даёт ответный сигнал убрать руку от горячего чайника.)
Диспетчер принимает заказ на такси. Принимает звуковую информацию, содержащую адрес подачи такси Время и Адрес назначения. Правило: В соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле. Затем передает адреса и время таксисту а стоимость и номер машины клиенту.
Бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье.
Получена звуковая информация, содержащая сообщение с задачей - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
Правило: переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
n: longint;
s: integer;
p: boolean;
begin
s:=0;
readln(n);
while n > 0 do
begin
if n mod 10 < 6 then
begin
inc(s, n mod 10);
p:=true;
end;
n := n div 10;
end;
if p = true then
writeln(s)
else
writeln('Нет');
end.