Pascal ABC 8 класс, помогите срочно••• 1.Составить программу, которая выводит...

Question

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

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

Comments

У Вас Pascal ABC или PascalABC.Net ?

---

ABC

---

Это плохо.

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.

Comments

А вторая?

---

Пишу

---

Вопрос, Вы свою программу когда написали, пробовали её проверить? Введите, например, а=1 и посмотрите на ответ

---

Для a<14 программа врет из-за арифметического переполнения.

---

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

---

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

---

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

---

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