Program name;
var a,b,s:real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
X=(input())
y=(input())
z=x
m=y
x=0
y=0
x=m
y=z
print(x)
print(y)
<u><em>Задание 1</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
else Writeln(sqrt(x+6*x))
end.
<u><em>Задание 2</em></u>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a,b,c:real;
Write('Введите стороны треугольника: ');
Read(a,b,c);
Write('Треугольник ');
if (a=b) and (b=c) then Write('равносторонний')
else begin
if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
(b*b+c*c=a*a) then Write('прямоугольный')
else Write('непрямоугольный')
end;
Writeln;
var p:=(a+b+c)/2;
Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.
program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Да...................,............