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

Решить вторую.. 1. даны три числа а, b, с. удвойте эти числа, если они являются по возрастанию. 2. проверьте, есть ли среди трех заданных чисел равные.

👇
Ответ:
кисел5467
кисел5467
14.02.2020

Решается и первая и вторая

Вывод на скриншотах

 

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

bool check(int, int);

int main()
{
   int a, b, c;

   cout << "Enter a, b, c: "; //Вводить через пробел
   cin >> a >> b >> c;

   //Проверка на упорядоченность
   if(a <= b && b <= c)
   {

      //Если числа являются упорядоченными,

      // то вывести на экран удвоенные значения
      cout << "The numbers are ordered:\n";
      cout << (a * 2) << ' ' << (b * 2) << ' ' << (c * 2) << endl;
   }
   else
      cout << "The numbers are not ordered" << endl;

   //Проверка на равенство
   if(check(a, b) || check(b, c) || check(a, c))
   {
      cout << "There are equal numbers" << endl;//Есть равные числа
   }
   else
      cout << "Equal numbers are not" << endl;//Нет равных чисел
   return 0;
}

bool check(int x, int y)
{
   if(x == y)
   {
      return true;
   }
   else
      return false;
}

 

 


Решить вторую.. 1. даны три числа а, b, с. удвойте эти числа, если они являются по возрастанию. 2. п
4,8(91 оценок)
Открыть все ответы
Ответ:
marinagrizhuk
marinagrizhuk
14.02.2020
var i,j,k,m: integer;
    s: string;
begin
  k:=0;
  for i:=1 to 1000000 do
  begin
    s:=IntToStr(i);
    m:=0;
    for j:=1 to (length(s) div 2) do
    if s[j]<>s[length(s)-j+1] then m:=1;
    if m=0 then
    begin
      inc(k); continue;
    end;  
    m:=pos('0',s);
    if m>0 then
    begin
      inc(k); continue;
    end;  
    m:=1;  
    for j:=2 to round(sqrt(i)) do 
    if i mod j = 0 then
    begin
      m:=0;
      break;  
    end;  
    if m=1 then inc(k); 
  end;
  k:=1000000-k;
  writeln('осталось чисел: ',k);
end.

осталось чисел: 544011
4,6(7 оценок)
Ответ:
Darkhan06
Darkhan06
14.02.2020
var i,j,k,m: integer;
    s: string;
begin
  k:=0;
  for i:=1 to 1000000 do
  begin
    s:=IntToStr(i);
    m:=0;
    for j:=1 to (length(s) div 2) do
    if s[j]<>s[length(s)-j+1] then m:=1;
    if m=0 then
    begin
      inc(k); continue;
    end;  
    m:=pos('0',s);
    if m>0 then
    begin
      inc(k); continue;
    end;  
    m:=1;  
    for j:=2 to round(sqrt(i)) do 
    if i mod j = 0 then
    begin
      m:=0;
      break;  
    end;  
    if m=1 then inc(k); 
  end;
  k:=1000000-k;
  writeln('осталось чисел: ',k);
end.

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