Задания.ру
Анонимно
6 часов назад

Написать программу, которая вычисляет и печатает объемы цилиндров высотой h=20 и радиусами оснований от 1 до 15.
НАПИСАТЬ ПРОГРАММУ НУЖНО В ПАСКАЛЕ

Ответ

Анонимно
var
  h, i: byte;
  z: real;
begin
  h := 20;
  for i := 1 to 15 do
    writeln('Объем цилиндра с основанием ', i, ' = ', (pi * (i * i) * h):2:2);
end.


Новые вопросы по Информатике

Вычислить квадратный корень из суммы квадратов элементов одномерного массива . программа в visual basic
10 - 11 классы
1 минута назад
Автомат получает на вход трёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа – сумма старшего и среднего разрядов, а та...
5 - 9 классы
1 минута назад
23C(16)=x(10) Помогите подробно))))
5 - 9 классы
1 минута назад
Як виник Інтернет?(Не скатывать с сайтов,так как я такой ответ не прийму.Мне нужен ответ,который будет взят с разных сайтов,и объединён в одно целое).
5 - 9 классы
2 минуты назад
Сообщение, записанное буквами 32-символьного алфавита, содержит 15 символов. Какой объем информации оно несет?
5 - 9 классы
2 минуты назад