<em>1)</em><span><em>с информацией</em>
<em>2)</em></span><span><em>драйвером</em>
<em>3)</em></span><span><em>загрузки данных из внешней памяти в оперативную</em>
<em>4)</em></span><span><em>арифметико-логическое устройство</em>
<em>5)</em></span><span><em>контроллер</em>
<em>6)</em></span><span><em>комплекс программ, обеспечивающий поддержку работоспособности программного обеспечения и </em></span>
<span><em>аппаратных средств ПК</em>
<em>7)</em></span><span><em>Дж. фон Нейманом</em>
<em>8)</em></span><span><em>описание принципов работы ЭВМ</em>
<em>9)</em></span><span><em>сеть</em>
<em>10)</em></span><span><em>именованная последовательность данных, размещенных на внешнем носителе</em>
<em>11)</em></span><span><em>адаптер( контроллер)</em>
<em>12)</em></span><span><em>на машинном языке ( в двоичном коде)</em>
<em>12)</em></span><span><em>число двоичных операций, совершаемых процессором в единицу времени</em></span>
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Если на Pascal, то вот:
program pr1;
var a:real;
begin
write("Введите число ");
readln(a);
writeln("Вы ввели число ", a);
end.
Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.
