ребят, хелп. помогите написать 2 задачки на языке Паскаль. Номер 4 и номер 10
Answers & Comments
Dexly
4. var r , S : real; begin writeln('Введите радиус: '); readln(r); S:= pi*r*r; writeln('Площадь круга: ',S); end.
10. var massa, a, b, c : real; begin writeln('Введите массы трёх слонов: '); readln(a,b,c); massa:=(a+b+c)/3; writeln('Средняя масса слона: ', massa); end.
Answers & Comments
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.