const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
1.Техника безопасности оберегающая здоровье
2.Техника безопасности защищающая технику от повреждений
3.Техника безопасности связанная с соблюдением чистоты и порядка рабочего места
4.техника безопасности в кабинете информатики
A-b=2-3=-1
a=-1
a+2*b=-1+2*3=5
b=5
a*b=-1*5=-5
a=-5
a/b=-5/5=-1
b=-1
Ответ: 2
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 28 c
v = 256000 бит/с
I - ?
Решение:
бит
7168000.0 бит = 896000.0 байт = 875.0 Кбайт
