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

Сс++.
даны целые числа a, b, c. если a≤b≤c, то все числа замените их квадратами, если a> b> c, то каждое число замените наибольшим из них, а в противном случае смените знак каждого числа на противоположный.

формат входных данных
в программу вводятся три целых числа a, b, c (−46340≤a,b,c≤46340).

👇
Ответ:
ogurhik
ogurhik
09.09.2021

#include <iostream>

using namespace std;

int main()

{

 int a, b, c;

 setlocale(LC_ALL, "Russian");

 cout << "a, b, c = ";

 cin >> a >> b >> c;

 if (a <= b && b <= c) {

   a = a * a;

   b = b * b;

   c = c * c;

 }

 else if (a > b && b > c) {

   b = a;

   c = a;

 }

 else {

   a = -a;

   b = -b;

   c = -c;

 }

 cout << "\nРезультат a, b, c = " << a << " " << b << " " << c;

}

4,8(62 оценок)
Открыть все ответы
Ответ:
Serlous
Serlous
09.09.2021
1. Современное, короткое и быстрое решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(16,-20,80); a.Println;
  Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.

Пример
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211

2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)

const
  n=16;
var
  i,s:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(101)-20;
    Write(a[i],' ');
    if i mod 2=0 then s:=s+a[i]
    end;
  Writeln;
  Writeln('S=',s)
end.
4,6(24 оценок)
Ответ:
dmitrocreativ
dmitrocreativ
09.09.2021
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var a:=ArrRandom(10,50,100); a.Println(', ');
  var s:=0;
  for var i:=0 to 9 do s+=a[i];
  Writeln('s=',s)
end.

Тестовое решение:
64, 59, 67, 54, 90, 51, 94, 70, 65, 82
s=696

"Школьный" вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
  a:array[1..10] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 10 do begin
    a[i]:=Random(51)+50;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Тестовое решение:
82 88 94 65 73 94 86 56 91 60
s=789

И, чтобы не быть голословным, современный вариант:

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('s=',ArrRandom(10,50,100).Println.Sum)
end.

Тестовое решение:
94 90 70 85 62 58 94 73 67 97
s=790
4,7(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ