1) (Если оценки ≤ 5)
var
count, a, i : integer;
begin
count := 0;
for i := 1 to 20 do
begin
read (a);
count := count + a div 5;
end;
writeln (count);
end;
2)
var
c : integer;
begin
c := 200;
while c mod 17 <> 0 do c := c + 1;
writeln (c);
end;
Ответ:
128 секунд
Объяснение:
525 кбайт = 525 * 1024 * 8 бит
Время = объем / скорость = 525 * 1024 * 8 / 33600 = 128 секунд
Var
c:integer;
L,Lm:real;
begin
Writeln('Укажите код единицы измерения');
Write('(1- дм, 2- км, 3- м, 4- мм, 5- см): ');
Read(c);
Write('Укажите длину в выбранных единицах: ');
Read(L);
case c of
1:Lm:=L/10;
2:Lm:=L*1000;
3:Lm:=L;
4:Lm:=L/1000;
5:Lm:=L/100
end;
Writeln('Это составляет ',Lm,'м')
end.
Пример работы программы
Укажите код единицы измерения
(1- дм, 2- км, 3- м, 4- мм, 5- см): 4
Укажите длину в выбранных единицах: 126
Это составляет 0.126м
(~А v B) ^ ~B = (~(0) v (1)) ^ ~(1) = (1 v 1) ^ 0 = 1 ^ 0 = 0
(x >= 7) ^ (X <= 2) = (4 >= 7) ^ (4 <= 2) = 0 ^ 0 = 0
(X > 5) ^ ((X ≤ 7) v ~(X < 9))= (8 > 5) ^ ((8 ≤ 7) v ~(8 < 9))= 1 ^ ((0) v ~(1))= 1 ^ (0 v 0)=0
(x > 5) ^ ((X ≤ 7) v ~(X < 9)) = (8 > 5) ^ ((8 ≤ 7) v ~(8 < 9))= 1 ^ ((0) v ~(1))= 1 ^ (0 v 0)=0
1. проводит дефрагментацию памяти
2. изменении цикла состояний процесса