Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
1)Диспетчер принимает заказ на такси.
Принимает звуковую информацию, содержащую адрес подачи такси
Время
и Адрес назначения.
Правило:
В соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле.
Затем передает адреса и время таксисту а стоимость и номер машины клиенту.
2)Бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье.
Получена звуковая информация, содержащая сообщение с задачей - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
Правило:
переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.
См. блок-схему
===========================
Решение на языке Pascal.
var k:integer;
begin
writeln ('Сколько часов в день играет котёнок?');
readln(k);
if k<8 then writeln ('Котёнок не здоров!');
if k>=8 then writeln ('Котёнок здоров.');
readln;
end.
