Question

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

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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