Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от...

Question

Пожалуйста,помогите! Срочно! В ПАСКАЛЕ:1) найти количество положительных целых чисел от 45 до 215;
2) Найти сумму положительных целых чисел от -50 до 200, кратных 5 и 8;
3) Найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры. Печать результата по вводу числа 0.

Comments

1) Все числа от 45 до 215 целые и положительные, их количество 215-45+1

---

Нужно программу составить для этого 

---

Я понимаю, только смысла не вижу

---

"Кратных 5 и 8" - это одновременно, или хотя бы одному из них?

Answer 1

//Приунываю
//Pascal ABC.NET v3.1 сборка 1172

//1
begin
 writeln(215-45+1);
end.

//2
Var
 i,s:integer;
begin
 for i:=-50 to 200 do
   if (i mod 5=0) and (i mod 8=0) and (i>0) then s:=s+i;
 writeln(s);
end. 

//3
Var
 i,s,a:integer;
begin
a:=1;
 repeat
  if (a<0) and (a mod 2=0) then<br>   begin
    inc(i);
    s:=s+a; 
  end;
  read(a);
 until a=0;
writeln('Sum=',s,' and number=',i);
end.