Артем Уберт
?>

Найти произведение всех целых чисел от c до d в паскале

Информатика

Ответы

zeltos384
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (c,d):=ReadInteger2('C,D=');
  Writeln('П = ',Range(c,d).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Пример
C,D= 23 42
П = 1250004633476421848894668800000
skvorec3424
Programm abc;
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.
Batishcheva

зміна масштабу без втрати якості і практично без збільшення розмірів вихідного файлу;

максимальна точність побудованого зображення (координати точок, між якими можуть бути проведені криві, можуть мати точність до сотих доль мікрона);

файл з векторним зображенням має набагато менший розмір порівняно з растровим зображенням;

малюнок має високу якість при друкуванні, особливо це добре помітно при високоякісному друці;

можливість редагування всіх частин векторного зображення;

простий експорт векторного малюнка в растровий.

utburt

#1

lst = [int(i) for i in input().split()]

print(len(set(lst)))  

#2

import statistics  

lst = [int(i) for i in input().split()]

print(statistics.mode(lst))

Объяснение:

#1

set() не изменяет состояния списка, передаваемого аргументом. Возвращает объект типа set, представляющий собой множество уникальных объектов, входивших в изначальный список. Длина этого множества и есть кол-во уникальных элементов в изначальном списке

#2

Модуль statistics является встроенным модулем Python (предоставляется пользователю "из коробки", без нужды качать что либо), и предоставляет набор функций и классов для работы со статистикой. Функция statistics.mode([iterable]) возвращает самый часто встречающийся элемент переданного ей списка (или любого другого итерируемого объекта)

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

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

Найти произведение всех целых чисел от c до d в паскале
Ваше имя (никнейм)*
Email*
Комментарий*

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

osandulyak
Алексей Шуклин
Adabir20156806
fygasika
maksim1lssah575
zaseche99
Viktor1316
semenov-1970
marver201040
alekseydovganich6
Tatyana Anton1475
Ирина-Макаркина253
mihalevskayat
ohussyev
Akvamontaz