найти минимальное значение на отрезке [-1,1,5] (шаг +0,2)
program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= c*100 + b*10 + a;
writeln('Число наоборот: ',abc);
end.
2.program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= b*100 + c*10 + a;
writeln('Первое число переместили в конец: ',abc);
end.
PascalABC 3.4.2
Free Pascal
uses math;
var
x, y : double;
i : integer;
begin
i:=-10;
while i <= 15 do begin
x:=i/10;
y:=(cos(x)-sqrt(sqr(x)+1))/2;
Writeln('f[',x:2:2,']=',y:4:4);
inc(i,2);
end;
end.