Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
{ 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр.}
var
units: integer;
value, factor: real;
begin
write('Введите значение - '); readln(value);
write('Введите единицу измерения - '); readln(units);
case units of
1: factor := 0.1;
2: factor := 1000;
3: factor := 1;
4: factor := 0.001;
5: factor := 0.01;
else
factor := 1;
end;
writeln(value * factor, ' м');
end.
1 = 1
2 = 2
3 = 3
4 = 2
5 = 2
6 = 4
7 = 1
8 = 4
9 = 5
<span>10 = 1</span>
Оператор AND возвращает единицу только при a и b равных единице.
Оператор NOT возвращает противоположное значение.
Значит при A = 1 и B = 0 тождество верно.
(NOT 0) AND 1 = 1
Лист защищен без пароля, чтобы случайно не повредить формулы.
формулы можно увидеть в строке формул.