Pascal ABC 8 класс, помогите срочно•••

1.Составить программу, которая выводит произведение целых чисел от a до 20. 2.Даны натуральные числа от 20 до 50, вывести те, которые делятся на 3, но не делятся на 5.

Извините, а не могли бы вы рещить ещё такую задачу : дано натуральное число : n, найти сумму 1 + одна вторая+ одна треть + ... + одна энная

Информация, не относящаяся к текущему вопросу или ответу считается спамом

Теперь верно?

Зачем спрашиваете, когда сами знаете ответ? Раз ушли на плавающую точку, конечно верно.

Но это же и сначала было понятно что 20! даст переполнение на longint

Первая:program qwer;uses crt;var pr: double;i, a: integer;Beginwrite('Введите число а: ');readln(a);pr := 1;for i := a to 20 dopr := pr * i;writeln(pr);End.Вторая:program qwer;uses crt;var i: integer;Beginfor i := 20 to 50 do if (i mod 3 = 0) and (i mod 5 <>0) then writeln(i);End.