Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Filka7
19.12.2020 02:47 •
Информатика
Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры значение радиуса шара и выводит на экран площадь его поверхности и объём.
👇
Увидеть ответ
Ответ:
tanyainua
19.12.2020
Var r:real; Begin write('Радиус шара равен: '); readln(r); writeln('Объём шара равен: ',4/3*3.14*r*r*r:0:1); writeln('Площадь шара равна: ',4*3.14*r*r:0:1); readln; End.
4,6
(23 оценок)
Открыть все ответы
Ответ:
daysannas
19.12.2020
Вот на С++:
#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
ld x;
cin >> x;
x = ( 8 / sqrt( x ) ) + sqrt(x);
cout << x;
ret(0);
}
4,7
(85 оценок)
Ответ:
zarizatamara00
19.12.2020
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
4,6
(100 оценок)
Это интересно:
П
Питомцы-и-животные
01.01.2023
Как подготовиться к появлению котят в доме...
И
Искусство-и-развлечения
17.05.2022
Как снять документальный фильм: советы от профессионалов...
К
Компьютеры-и-электроника
21.03.2021
Как удалить все сообщения в Twitter: лучшие способы...
П
Питомцы-и-животные
12.04.2022
Как дрессировать австралийскую овчарку: практические советы и рекомендации...
З
Здоровье
03.07.2021
Как избежать обезвоживания при отравлении...
Ф
Финансы-и-бизнес
28.09.2022
Как заниматься консигнацией: советы для начинающих...
В
Взаимоотношения
21.06.2022
Как сохранить романтику: секреты успешных отношений...
К
Кулинария-и-гостеприимство
24.06.2022
Запекись, стейк! Как подогреть мясо и не испортить его вкус...
К
Кулинария-и-гостеприимство
20.03.2022
Как приготовить легкие и сочные вегетарианские блинчики в домашних условиях...
И
Искусство-и-развлечения
07.09.2022
Как правильно выбрать гитарный усилитель для рок музыки...
Новые ответы от MOGZ: Информатика
Nastya90Lapka
27.12.2021
с Знайти символ, який входить у текст найбільшу кількість разів. (Написати програмку)...
Adik2281
04.01.2021
Как в экселе вычислить цену за 1 мб, если мы знаем что 100гб стоят 20$ ?? 100гб = 1мб...
DarinaKimovsk
12.12.2021
господи боже ради бога ради иисуса я поставлю за вас свечку в церкви только ничего не понимаю господи...
пончик332
21.02.2022
ПРОГРАММИРОВАНИЕ ПИТОН. 4 ВАРИАНТ....
kamislove
17.02.2023
Сполным решением переведите из шестнадцатеричной системы счисления в десятичную: a)12a; b)1f....
shalyaeg
09.09.2021
Напишите с полным решением переведите следующие числа в римскую систему счисления: a) 5678; b) 236; c) 1367....
пптл
02.03.2022
Легендарный учитель математики Юрий Петрович придумал забавную игру с числами. А именно, взяв произвольное целое число, он переводит его в двоичную систему счисления,...
daurova2007
02.03.2022
Что не так сделал подскажите Program Roots; Var a, b, c, d, x, x1, x2: real; begin WriteLn( Введите коэфициенты квадратного уравнения: ); Write( a= );ReadLn(a);...
Viralave
27.07.2022
Работа по информатике 9 класс 10...
nikaknekto
24.01.2021
ответь на вопросы. учти, что для кодирования используют только два символа. 1. сколько кодов можно составить из 8 бит? 2. сколько надо бит, чтобы можно было составить...
MOGZ ответил
Самыми древними письменными памятниками на датском языке являются...
В основе этногенеза испанцев лежат - это иберы кельты германцы...
Зимний праздник от Рождества до Крещения с театрализованными...
Последовательность значения различных видов традиционного хозяйства...
Последовательность численности народов, проживающих в Нидерландах...
Последовательность этногенетического процесса у уэльсцев (валийцев)...
Скоттс - самоназвание - это шотландцев англичан уэльсцев ирландцев...
Традиционная итальянская кухня отличается обилием - это фруктов...
Этнография - наука, изучающая Культурно-бытовые особенности...
Датский язык сложился на основе _ диалектов зеландских ютландских...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ