М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mariyburova2001
mariyburova2001
16.01.2021 11:11 •  Информатика

Куб Напишите программу, вычисляющую объём куба и глощадь его полной поверхности, по введённому значению длины ребра, Формат входных данных На вход программе подается одно целое число - длина ребра. Формат выходных данных Программа должна вывести текст и числа в соответствии с условием задачи. Примечание. Объём куба и площадь полной поверхности можно вычислить по формулам V = a*, S = ба? - » Тестовые данные Sample Input 1: 25 Sample Output 1: Объем = 15625 Площадь полной поверхности = 3750 Sample Input 2: 13 Sample Output 2: Объем 2197 Площадь полной поверхности = 1014 Sample Input 3: 56 Sample Output 3: Объем 2 175616 Площадь полной поверхности = 18816


Куб Напишите программу, вычисляющую объём куба и глощадь его полной поверхности, по введённому значе

👇
Ответ:
vovovakgs
vovovakgs
16.01.2021

program test;

var a: integer;

begin

read(a);

writeln('Обьем = ',a*a*a);

write('Площадь полной поверхности = ',6*a*a)

end.

4,6(52 оценок)
Открыть все ответы
Ответ:
супер567890
супер567890
16.01.2021

Объяснение:

Сочинение на тему: Наше будущее в наших руках

В современном мире достаточно трудно найти человека, который не хотел бы узнать свое будущее. Каждый из нас неоднократно задумывался над вопросом: что с нами будет через несколько лет? ответ на это вопрос ищут в знахарей или колдунов. Однако мало кто склоняется к мысли, что наше будущее зависит только от нас самих, только мы его менять.

Народная пословица гласит: «Каждый человек — кузнец своего счастья». Трудно не согласиться с этим мнением, ведь в мире не существует такой силы, которая построила бы наше будущее за нас.

Я склоняюсь к мысли, что каждому из нас под силу творить свою собственную жизнь. В мире существует множество примеров, когда люди, благодаря своему труду, настойчивости и таланта, достигали невероятных высот. На эту землю все приходят равными, однако свое будущее каждый строит сам.

Я считаю, что в жизни нельзя изменить только две вещи: дату рождения и дату смерти. Все остальное в наших руках. Существуют люди, которые готовы оспорить этот тезис, однако другие разделяют со мной такую позицию. Если человек верит в светлое будущее и готов для этого упорно работать, то очевидным фактом является то, что он достигнет невероятного успеха.

Ярким примером создателей светлого будущего есть народ, который пережил много лет порабощения через кровавые страдания, пережил нечеловеческие издевательства, но все это время боролся за собственную независимость и собственноручно ее получил. Ведь будущее страны было лишь в руках его народа, который благодаря своему несокрушимому духу сумел построить сильное, независимое государство.

Итак, исходя из всего выше сказанного, можно сделать вывод, что судьба каждого человека зависит только от него самой. Каждый из нас — творец собственного счастья. Наше будущее зависит от того, что мы будем делать сейчас. И начинать нужно уже сейчас, закладывая маленькие кирпичики в свой дом под названием «будущее». И всегда следует помнить, что наше будущее, в наших руках, главное их не опускать!

4,7(32 оценок)
Ответ:
nurmakhanovna02
nurmakhanovna02
16.01.2021

Листинг 1:

program sum_cubes;

(c) NaaMan}

 function func(x: real): real;

 begin

   Result := 3*x*x + 3*sin(x);

 end;

 const

   start = 0.0;

   finish = 5.0;

   step = 0.7;

 var

   sum, i: real;

   n: integer;

begin

 sum := 0;

 n := 0;

 i := start;

 while i <= finish do begin

   var y: real;

   y := func(i);

   writeln(i,'   ', y:8:3);

   if y > 0 then begin

     sum := sum + power(y,3);

     n := n + 1;

   end;

   i := i + step;

 end;

 writeln( 'Sum = ', sum:10:3, '   Count = ', n);

end.

Листинг 2:

program arr_sum_cou;

(c) NaaMan}

var

 sum, n: integer;

begin

 sum := 0;

 n := 0;

 var a := ArrRandomInteger(100, -40, 40);

 foreach var i in a do

   if i < 0 then

     sum := sum + i

   else

     n := n + 1;

 writeln('Array: ', a);

 writeln( 'Sum = ', sum, '   Count = ', n);

end.

Листинг 3:

program arr_sum_cou;

(c) NaaMan}

var F: boolean;

begin

 F := True;

 var A := ArrRandomInteger(10, 1, 10);

 var B := ArrRandomInteger(10, 1, 10);

 writeln(A);

 writeln(B);

 for var i := 0 to 9 do

   if A[i] = B[i] then begin

     writeln('Item = ', i, '   Value = ', A[i]);

     F := False;

   end;

   if F then

     writeln('Совпадений нет.');

end.


Очень, Очень ! У меня осталось всего 5 часов до сдачи! 1. Рассчитать сумму кубов всех положительных
Очень, Очень ! У меня осталось всего 5 часов до сдачи! 1. Рассчитать сумму кубов всех положительных
Очень, Очень ! У меня осталось всего 5 часов до сдачи! 1. Рассчитать сумму кубов всех положительных
4,4(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ