Предмет: Информатика,
автор: maks567898
Напишите в паскале программу к задачам 8,9,13 пожалуйста
Приложения:

Ответы
Автор ответа:
0
8)
Var
V,S,R,H : Real;
Begin
Write('Введите R и H : '); Readln(R,H);
Writeln('V = ',Pi*sqr(R)*H);
Writeln('S = ',2*Pi*R*H);
end.
9)
Var
V,S,R,H,L : Real;
Begin
Write('Введите R,H и L : '); Readln(R,H,L);
Writeln('V = ',Pi*sqr(R)*H/3);
Writeln('S = ',Pi*R*L);
end.
Var
V,S,R,H : Real;
Begin
Write('Введите R и H : '); Readln(R,H);
Writeln('V = ',Pi*sqr(R)*H);
Writeln('S = ',2*Pi*R*H);
end.
9)
Var
V,S,R,H,L : Real;
Begin
Write('Введите R,H и L : '); Readln(R,H,L);
Writeln('V = ',Pi*sqr(R)*H/3);
Writeln('S = ',Pi*R*L);
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Українська література,
автор: Аноним
Предмет: Математика,
автор: Fasteboks
Предмет: Физика,
автор: Penuch