Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>
Для числа 3.
(3 > 1)=1(истина))
(3 > 2)=1(истина)
(3 = 3) = 1(истина)
1 ∧ 1 ∧ 1 = 1 * 1 * 1 = 1(истина)
Var n,k:integer;
begin
readln(n);
k:=(n-1) div 1000;
writeln(k);
end.
Пример:
2001
2
В древнее время первобытные люди записывали или же вырезали информацию на камнях в скалах,пещерах.Они рисовали животных,сцены охоты.В древнем Египте люди использовали папирус,сделанный из бамбука.На сегодняшний день мы можем записывать информацию в интернете,блокноте и т.Д.