Предмет: Информатика,
автор: Flayk
Здравствуйте, помогите решить в паскале:
1) Найти произведение первых натуральных 10-ти чисел кратных 6.
2) Вывести 25 натуральных чисел кратных 7. Найти их результирующую сумму.
Аноним:
"Вывести 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.
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Английский язык,
автор: a6957125
Предмет: Английский язык,
автор: KomiSan68
Предмет: Математика,
автор: vladbaidakov
Предмет: Математика,
автор: shulaut