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

Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями:

👇
Открыть все ответы
Ответ:
arystan307
arystan307
01.09.2021

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

cout << "Введите количество нечётных чисел (до 2000 включительно) ";

int count;

int sum = 0;

cin >> count;

if(count >= 1 && count <= 2000)

{

for(int i = 1; i<=count; i++)

{

 if(i%2!=0)

 {

   

  if(i!=count) // проверка на то, ставить ли ещё 1 плюс или будет равно

  {

   cout << i << " + ";

      sum=sum+i;

  }

  else

  {

   cout << i;

   sum=sum+i;

  }

   

 }

 else

 {

  if(i!=count)

  {

  cout << i+1 << " + ";

  i++;

  sum=sum+i;

 }

 else

 {

  cout << i+1;

  i++;

  sum=sum+i;

 }

 }

}

}

cout << " = " <<sum;  

   system("pause");

   return 0;

}

Аналогичная программа:

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

cout << "Введите последнее нечётное число";

int num;

int a;

cin >> num;

num=num+1;

num=num/2;

num=num*num;

cout << "Итого: " << num;

   system("pause");

   return 0;

}

4,4(66 оценок)
Ответ:
Ася065
Ася065
01.09.2021

var s,a,b,c:char;

i:integer;

begin

 read(s);

 a:=succ(s);

 b:=succ(a);

 c:=succ(b);

 write(a,' ');

 write(b,' ');

 write(c,' ');

end.

const ans:array [boolean] of string = ('false','true');

var a,b:integer;

begin

 read(a,b);

 writeln(ans[(a mod 3 = 0) and (b mod 3 = 0)]);

end.

var

   n, m, p: int64;

begin

   write('Enter number: ');

   readln(n);

   m := n;

   p := 0;

   while m > 0 do begin

       p := p * 10 + m mod 10;

       m := m div 10;

   end;

   while n = p do begin

   writeln('Palindrome');

   break;

   end;

   while n<>p do begin

   writeln('No palindrome');

   break;

   end;

end.

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