Вот решение. Написал на Pascal. На всякий случай прикрепил скриншот.
П0 1 0 / {x} 1 0 * 1 0 0 / [x] * С/П
var x: integer; y: real;
begin
readln(x);
If x<=-10 then
y:=x*x+25-x
else If (-10<x) and (x<=10) then
y:=3+x
else y:=1/x;
writeln(y);
end.
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
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>
Задание №4. Определить значение переменной S после выполнения следующих операторов:
1) S:=1; I:=1 For I:=2 to 2 do S:=S+1/I; S=1.5
2) S:=0; I:=1 For I:=2 to -5 do S:=S+1/I; S=0
3) S:=1; I:=1 For I:=2 downto 2 do S:=S+1/I; S=1.5
Задание №5. Определить сколько раз будет выполняться тело следующих операторов цикла.
1) K:=0; For i:=1 to K+3 do K:=K+1; Ответ: 3
2) K:=0; For i:=1 to 9 do K:=K+sqr(i); Ответ: 9.
3) K:=0; For i:=9 to 1 do K:=K+1; Ответ: 0
4) K:=0; For i:=1 to 1 do K:=K+1; Ответ: 1