1. Шиной (магистралью)
Плоттер-устройство печати
Модем-устройство меняющий аналоговую информацию в цифровую и обратно
Контроллер -регулятор, управляющий элемент
Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>
Вроде так, но без конкретных примеров сложно проверить
Var
i,k:Integer;
Begin
for i:=10 to 99 do
if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
Writeln(k);
end.
Английский, испанский,французкий