Olga Arutyunyan
?>

Задание: Написать программу на ЯПPyton: с клавиатуры вводится два целых числа. Если их разность кратна 3, то появляется надпись «Разность кратна 3», иначе появляется надпись «Разность не кратна 3»

Информатика

Ответы

nusupova

print('Разность кратна трем' if (int(input()) - int(input())) % 3 == 0 else 'Разность не кратна трем')

e-liza-k
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var M:=ArrRandom(ReadInteger('x='),-50,50); M.Println;
  var pa:=M.Where(p->p>3).Average;
  Writeln('Среднее арифметическое чисел, превышающих 3: ',pa);
  var pm:=M.TakeLast(10).Max;
  Writeln('Максимум из десяти последних чисел: ',pm);
  var pp:=pm/pa;
  Writeln('Отношение двух найденных величин: ',pp);
  Writeln('Сформированный массив');
  var C:=M.Where(p->p>pp).ToArray; C.Println
end.

Пример
x= 15
2 -44 30 49 -36 47 -38 -21 -50 3 -5 50 37 -8 -18
Среднее арифметическое чисел, превышающих 3: 42.6
Максимум из десяти последних чисел: 50
Отношение двух найденных величин: 1.17370892018779
Сформированный массив
2 30 49 47 3 50 37
damir
Решение для одного-двух разных удаляемых символов

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

begin
  var s:=ReadlnString('>');
  s:=s.Replace('.','').Replace(',','');
  s.Println
end.

Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять

Решение, когда разных удаляемых символов может быть много

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

begin
  var s:=ReadlnString('>');
  s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
  s.Println
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Задание: Написать программу на ЯПPyton: с клавиатуры вводится два целых числа. Если их разность кратна 3, то появляется надпись «Разность кратна 3», иначе появляется надпись «Разность не кратна 3»
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

lolydragon
kep92
jeep75
ValerevnaRustam1072
Maksim Dmitrii1579
omigunova39
tanyashevvvv
sergeevna
CafedeMinou
Olegmgu11986
Евгений1286
gallush9
ЕленаГерасимова
Kashtanov Anna
idalbaev