среда, 9 апреля 2014 г.

Практическое задание № 20 "Знакомство с языком Паскаль"

№1 program one
var a, b, c, d, S: integer;
begin
read Ln (a,b,c,d);
S:=(a+b+c+d)/4;
write Ln (S);
end.

№2 program two
var a, b, c, d, x: integer;
begin
read Ln (a, b, c);
d:=b*b-4*a*c;
write Ln (d);
End.

№3 program three
var R1,R2:real;
begin
read Ln (R1,R2);
R1:=3.14*R1*R1;
R2:=3.14*R2*R2;
if R1>R2 then write (‘Площадь кольца’,R1-R2)
else write (‘Введены некорректные значения’)
end.