Предмет: Информатика, автор: Flayk

Здравствуйте, помогите решить в паскале:
1) Найти произведение первых натуральных 10-ти чисел кратных 6.
2) Вывести 25 натуральных чисел кратных 7. Найти их результирующую сумму.


Аноним: "Вывести 25 натуральных чисел " - точно вЫвести? Не ввести?
Flayk: Ошибся: Вывести первые 25 натуральных чисел....
Аноним: Понятно. Простенькая задачка.

Ответы

Автор ответа: Аноним
5

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 SeqGen(10, 6, t -> t + 6).Aggregate(int64(1), (p, q)-> p * q).Println;

 SeqGen(25, 7, t -> t + 7).Sum.Println

end.

Результат

219419659468800

2275

2) "Школярский вариант"

(для тех, у кого учителя в развитии застряли в Паскале образца 1983 года)

var

 i, s: integer;

 p: real;


begin

 p := 1;

 for i := 1 to 10 do

   p := p * i * 6;

 Writeln(p);

 s := 0;

 for i := 1 to 25 do

   s := s + i * 7;

 Writeln(s)

end.

3) "Школопетский вариант"

(для тех, у кого голова, чтобы "в нее кушать")

var

 i, s, n: integer;

 p: real;


begin

 p := 1;

 n := 0;

 i := 1;

 while n < 10 do

 begin

   if i mod 6 = 0 then

   begin

     p := p * i;

     Inc(n)

   end;

   inc(i)

 end;

 Writeln(p);

 s := 0;

 n := 0;

 i := 1;

 while n < 25 do

 begin

   if i mod 7 = 0 then

   begin

     s := s + i;

     Inc(n)

   end;

   inc(i)

 end;

 Writeln(s)

end.


Flayk: Спасибо большое!
Аноним: Пожалуйста
Похожие вопросы
Предмет: Английский язык, автор: KomiSan68
Предмет: Математика, автор: vladbaidakov