Практическая работа информатика паскаль 9 класс пж

1) Program popcorn ;
uses crt ;
var : a, b, c, y : real;
begin
writeln ('введите 3 всех числа') ;
readln (a,b,c) ;
y := (b+abs(b*b+4*a*c))/2-a*c*c+b ;
writeln ('y= ',y) ;
end .
2) Program york ;
uses crt ;
var a,b,c,d,e :integer ; s :real ;
begin
writeln ('введите 5 оценок мальчика ') ;
readln (a,b,c,d,e) ;
s :=(a+b+c+d+e)/5 ;
writeln('средняя арифметическая оценок Пети ',s) ;
end.
3) Program dafd ;
uses crt ;
var a,b,c,P,S :real ; S1 :integer ;
begin
writeln('ввести два катета: ') ;
readln(a,b) ;
c :=абс(a*a+b*b) ;
P := a+b+c ;
S :=a*b/2 ;
S1 := round(S) ;
writeln ('площадь треугольниками с введенными катетами= 'S1) ;
writeln ('периметр = ',P) ;
end.
4) странное условие : вначале пишут, что в пон и вт продают одинаковое кол-во плодов , а в выводе на экран разные ..
буду отталкиваться от вывода на экране
Program fruit ;
uses crt ;
var a,p,o,a2,p3,o3,s,s2,s3 : real ;
begin
writeln('кол-во яблок проданных в пон') ;
readln(a) ;
writeln('кол-во груш проданных в пон') ;
readln(p) ;
writeln('кол-во апельсинов проданных в пон') ;
readln(o) ;
writeln('кол-во яблок проданых вo вт') ;
readln(a2) ;
writeln('кол-во груш проданых вo вт') ;
readln(р2) ;
writeln('кол-во апельсинов проданых вo вт') ;
readln(о2) ;
s := a+p+o ;
s2 := a2+p2+o2 ;
s3 := s+s2 ;
writeln ('продано в пон яблок ',а) ;
writeln ('                         груш ',р) ;
writeln ('                         апельсинов ',о) ;
writeln ('продано вщ вт яблок ',а2) ;
writeln ('                         груш ',р2) ;
writeln ('                         апельсинов ',о2) ;
writeln ('выручка за день1 ',s) ;
writeln ('выручка за день2 ',s2) ;
writeln ('выручка за два дня ',s3) ;
end.