В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Apelsinka32
Apelsinka32
02.12.2021 18:59 •  Информатика

Для нахождения информации используются подходы. какие?

Показать ответ
Ответ:
kopil199420p017kl
kopil199420p017kl
12.12.2022 23:53
program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.
0,0(0 оценок)
Ответ:
andreytolstik
andreytolstik
29.12.2022 03:28

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cmath>
using std::pow;
using std::sqrt;

double vpisannayaOkryzhnost(double);
double opisannayaOkryzhnost(double);

int main()
{
   double perimeter;

   cout << "Vvedite perimeter: ";
   cin >> perimeter;

   cout << "r vpisannoi okruzhnosti = " << vpisannayaOkryzhnost(perimeter) << endl;
   cout << "R opisannoi okruzhnosti = " << opisannayaOkryzhnost(perimeter) << endl;

   cin.get();
   return 0;
}

double vpisannayaOkryzhnost(double perimeter)
{
   double a = perimeter / 4;

   return (a / 2);
}

double opisannayaOkryzhnost(double perimeter)
{
   double a = perimeter / 4;

   return (sqrt(2) / 2 * a);
}

 

На Гэ-паскале можно написать так:

program math;
var perimeter, a: real;
begin
  write('Vvedite perimeter: ');
  read(perimeter);
  a := perimeter / 4;
  writeln('r vpisannoi okruzhnosti = ', a / 2:0:2);
  writeln('R opisannoi okruzhnosti = ', sqrt(2) / 2 * a:0:2);
  readln();
  readln();
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота