Program cube; ; var a, S,V:real;
begin;
write('Введите длину ребра куба: ');
read(a);
V:=power(a,3);
s:=6*sqr(a);
write('Площадь равна 's,', а объём равен "v, .');
end.
Перевести на С
Другие вопросы по: Информатика
Знаешь правильный ответ?
Program cube; ; var a, S,V:real;begin;write('Введите длину ребра куба: ');read(a);V:=power(a,3);s:=6...
Популярные вопросы