Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Skitcher
3 года назад
5
Прошу сделайте , как можно скорее , записать на языке Паскаль
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Daniil S
3 года назад
0
0
Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
Отправить
Читайте также
Задача по программированию (Паскаль) определить ,для любых координат, попадет ли точка в заданную область решить через if
Владислав Николаевич
Ответ смотрите в файле
0
0
3 года назад
Помогите плиз5-ое и 6-ое.
Игорь 50 [7]
Почему я 7 клас, и не понимаю КАК ЭТО ДЕЛАТЬ??
0
0
3 года назад
Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного числа. ПАСКАЛЬ.
Касн [28]
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=Exp(ln(x)/3);
write (x:0:3);
<span>
end.
</span>
0
0
3 года назад
Кто, когда и где разработал первый проект автоматической вычислительной машины
Desert
1833 год , Чарлз Бэббидж,Англия
0
0
4 года назад
Помогите пожалуйста сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего progr
Koshevoyvlad
if(c==d) then writeln("Твой текст");
0
0
3 года назад
Смотрите также:
Напишите программу, которая в последовательности целых чисел определяет среднее арифметическое отрицательных чисел, кратных 6. П
8
·
1 ответ
Заданы 3 числа. напишите программу для нахождения среднего арифметического этих чисел. ПОМОГИТЕЕЕЕ
15
·
1 ответ
Интерфейс имитирующий реальный мир
6
·
1 ответ
Какое меню необходимо использовать для запуска редактора формул в тексто-вом редакторе? A) View B) Format C) Edit D) Insert
6
·
1 ответ
на чём делались записи в Двуречье ?
7
·
1 ответ
Помогите пожалуйста.Заранее спасибо
6
·
1 ответ
Дан массив К, содержащий 38 элементов в интервале от -20 до 30; заменить числом 100 элементы массива, которые заканчиваются на 4
7
·
1 ответ
Решите пожалуйста!!!!!
15
·
1 ответ
Дано натуральное число N. Написать программу для вычисления суммы вида: 10+15+20+...+N
12
·
1 ответ
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Но
8
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!