Одна единица товара стоит X рублей. Напечатайте таблицу стоимости 1, 2, 3, ..., 20 единиц этого товара.Формат входных данныхВводится одно положительное целое число X, которое не превосходит 10000000Формат выходных данныхНеобходимо вывести таблицу стоимости этого товара в формате аналогичном примеру.входные данные выходные данные51 5 Rub.2 10 Rub.3 15 Rub.4 20 Rub.5 25 Rub.6 30 Rub.7 35 Rub.8 40 Rub.9 45 Rub.10 50 Rub.11 55 Rub.12 60 Rub.13 65 Rub.14 70 Rub.15 75 Rub.16 80 Rub.17 85 Rub.18 90 Rub.19 95 Rub.20 100 RubЗадача в питоне ​

x = int(input())

S=0

for i in range(1,21):

S=x*i

print(i, S)

Язык не указан, предположим что нужен кто то из популярных: Паскаль или Питон.

PascalABC.NET:

#1 (По умному)

begin

 var a := Range(1, ReadInteger('N = '));

 a.Sum.Println;

 a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;

end.

#2 "А нас учили по другому"

begin

 var N := ReadInteger();

 var sum:int64 := 0;

 var prod:BigInteger := 1;  //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger

 for var i := 1 to N do begin

   sum += i;

   prod *= i;

 end;

 Println(sum, prod);

end.

#3 Вариант на Питоне

summ, prod = 0, 1

for i in range(1, int(input())+1):

   summ += i; prod *= i

print(summ, prod)

Объяснение:

program cikli;

unit math;

var

  i,n,s,p:integer;

  a:array[1..20]of integer;

begin

 writeln('Исходный массив: ');

 for i:=1 to 20 do begin

  a[i]:=RandomRange(1,20);

  writeln(' Элемент ',i,' =  ',a[i]);

 end;

 writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? ');

 readln(n);

 s:=0;p:=1;

//цикл с параметром

 For i:=1 to n do begin

  s:=s+a[i];

  p:=p*a[i];

 end;

writeln('Цикл с параметром');

writeln('Сумма первых ',n,' чисел = ',s);

writeln('Произведения первых ',n,'чисел = ',p);

 

//цикл с предусловием

i:=1;p:=1;s:=0;

while i<>n do begin

 s:=s+a[i];

 p:=p*a[i];

 i:=i+1;

end;

writeln('Цикл с предусловием');

writeln('Сумма первых ',n,' чисел = ',s);

writeln('Произведения первых ',n,'чисел = ',p);

 

//цикл с постусловием

i:=0;s:=0;p:=1;

repeat

  i:=i+1;

  s:=s+a[i];

  p:=p*a[i];

until i=n;

writeln('Цикл с постусловием');

writeln('Сумма первых ',n,' чисел = ',s);

writeln('Произведения первых ',n,'чисел = ',p);

End.