russlan4ik1
11.08.2020 20:53

Вариант 3 1) Составить программу, которая четные числа удваивает, а к нечетным числам прибавляет 3.
2) Составить программу, которая спрашивает рост человека и, если рост удовлетворяет условию: 187см ≥ рост ≤ 205см сообщает “Поздравляем, Вы приняты в секцию баскетбола”, а в противном случае – “К сожалению, мы не можем Вас принять в баскетбольную секцию”..
3) Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда?
4) В ЭВМ поступают результаты соревнований по плаванию для 3-х спортсменов. Составьте программу, которая выбирает наихудший результат и выводит его на экран с сообщением, что это результат достоин третьего места.
5) Составьте программу, которая по введенному вами В – количество , печатает фразу «Я набрал В », причем согласовывает окончание слова « » с числом В. Количество может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры (не всегда!).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
polikarpova05
19.03.2022 13:26

#include <iostream>

typedef long long   ll;

using namespace std;

bool ll_is_valid(ll t, ll N, ll x, ll y)

{

return  t / x + (t - x) / y >= N;

}

ll f(ll N, ll x, ll y)

{

   ll R = 1;

   while (!ll_is_valid(R,N,x,y)) R *= 2;

ll L = R / 2;

while(R - L > 1)

{

 ll M   =   (L + R) / 2;

 

 if (!ll_is_valid(M,N,x,y)) {L = M;}

 else {R = M;}

}

return  R;

}

int  main()

{

ll N,x,y;

cin >> N >> x >> y;

if(x > y) swap( x, y );  

cout << f(N, x, y) <<  std::endl;

}

0,0(0 оценок)
Ответ:
УмничкаХороша
01.07.2021 00:41
// PascalABC.NET 3.0, сборка 1128
begin
  var a:=ArrRandom(20,-10,19);
  a.Println(','); // 1
  var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
  Writeln('Количество положительных элементов ',
    a.Where(x->x>0).Count); // 3
  for var i:=0 to 19 do
    if a[i]<0 then a[i]:=0;
  Writeln('Массив А после замены отрицательных'); a.Println(','); //4
  Writeln('Сумма положительных элементов ',
    a.Where(x->x>0).Sum) // 5
end.

Тестовое решение:
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота