<span>Рассмотрим, например, карандаш. Он состоит из деревянного корпуса и графитового стержня. Графитовый стержень — это существенный элемент карандаша, так как он определяет его главное назначение — писать, рисовать, то есть оставлять след на бумаге. Корпус служит для того, чтобы не ломался хрупкий графитовый стержень. Корпус — это вспомогательный элемент. Он может быть сделан не из дерева, а из другого материала (например, из пластмассы).</span>
Очень легко 2метра за 1сек.
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
Итерация 1:
dat 1 < 3
итерация 2: dat2 > 3, m = 1
итерация 3: dat3 > 3, m = 2
итерация 4: dat4 > 3, m = 3
итерация 5: dat5 > 3, m = 4
итерация 6: dat6 < 3, m = 4
итерация 7: dat7 < 3, m = 4
итерация 8: dat8 < 3, m = 4
итерация 9: dat9 > 3, m = 5
итерация 10: dat10 > 3, m = 6
Ответ: 6
Var a,b:0..1;
begin
writeln(' A B not A A and B A or B A xor B');
for a:=0 to 1 do
for b:=0 to 1 do
writeln((a=1):6,(b=1):6,(not(a=1)):7,(a=1)and(b=1):8,(a=1)or(b=1):8,(a=1)xor(b=1):8);
end.
Результат:
A B not A A and B A or B A xor B
False False True False False False
False True True False True True
True False False False True True
True True False True True False