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

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

Показать ответ
Ответ:
Сельга7
Сельга7
15.07.2022 12:54

#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;

}

0,0(0 оценок)
Ответ:
ученик1890
ученик1890
31.10.2021 21:28

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

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