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

Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице.


Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) п

Показать ответ
Ответ:
прнннр1
прнннр1
25.03.2020 01:25
Var
   A,Sc,Sn:integer;
Begin
Sc:=0;
Sn:=0;
Write('Введите четырёхзначное число: ');ReadLn(A);
//Если чётных(0,2,4,6,8) и нечётных(1,3,5,7,9) чисел:
if (A div 1000) mod 2 = 0 then Sc:=Sc+A div 1000
else Sn:=Sn+A div 1000;

if ((A div 100) mod 10) mod 2 = 0 then Sc:=Sc+(A div 100) mod 10
else Sn:=Sn+(A div 100) mod 10;

if ((A div 10) mod 10) mod 2 = 0 then Sc:=Sc+(A div 10) mod 10
else Sn:=Sn+(A div 10) mod 10;

if (A mod 10) mod 2 = 0 then Sc:=Sc+(A mod 10)
else Sn:=Sn+(A mod 10);

if Sc<Sn then WriteLn(Sn,' ',Sc)
else WriteLn(Sc,' ',Sn);

//Если чисел, стоящих на чётных и нечётных позициях:
Sc:=(A mod 10)+(A div 100) mod 10;
Sn:=(A div 10) mod 10 + A div 1000;

if Sc<Sn then WriteLn(Sn,' ',Sc)
else WriteLn(Sc,' ',Sn);
End.
0,0(0 оценок)
Ответ:
AkaboS123
AkaboS123
25.01.2023 10:18
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(5); Writeln(5*a.ColCount*'-');
  a:=a.ConvertAll(x->x.IsOdd?x+10:x-10);
  a.Println(5)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
   66  -57   -2   69   45  -44   35  -96  -48   87
   20  -32  -14  -41  -78    2   95    5   61   99
   13   -7   86   58  -57    3  -58   14  -48   16
   85   42  -57   90  -88   56   53   92   14  -97
   84   87   93   93  -29  -32   24   42   89  -62

   56  -47  -12   79   55  -54   45 -106  -58   97
   10  -42  -24  -31  -88   -8  105   15   71  109
   23    3   76   48  -47   13  -68    4  -58    6
   95   32  -47   80  -98   46   63   82    4  -87
   74   97  103  103  -19  -42   14   32   99  -72
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота