Пояснение ребуса:
При "н" "т" катЕР
Ответ: принтер.
2017 = <span>11111100001 2
2017 = 3741 8
2017 = </span><span>7E1 16</span>
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
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>
Конечно, в таком стиле не пишут, но это специально для Вас, чтобы было максимально похоже на "алгоритм".<u>
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:integer;
var y:real;
Read(x);
if x>0
then y:=Sqrt(x)
else y:=Abs(x);
Writeln(y)
end.