Var a1, a2, a3, max: integer;
begin
writeln('a1=');
readln(a1);
writeln('a2=');
readln(a2);
writeln('a3=');
readln(a3);
if a1 > a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3;
writeln ('Максимальное из них: ', max);
readln;
<span>end.</span>
Ответ:
Роутер
Объяснение:
От него исходит интернет, если я правильно помню.
Обьект управления: петух.
Управляющее воздействие:
звуковое.
Я так думаю:))))
возможность отображения динамических процессов, интерактивность
#!/usr/bin/env python
# encoding: utf-8
ans = 1
k = 0
while ans != 0:
ans = input()
if ans > 0 : k += 1
print "\n***\n",k