1) Найти сумму чисел от 10 до n, кратных 10, где (10 )2)Вывести последовательность четных...

Question

1) Найти сумму чисел от 10 до n, кратных 10, где (10 )2)Вывести последовательность четных чисел от m до n, где n 3)Вывести последовательность чисел кратных трем от m до n, где n>m.

Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"

Comments

Сейчас сделаю

---

хорошо:) жду)

Answer 1

Решение ниже в комментарии
а

Comments

program HelloWorld;

var

n, i, sum : integer;

begin

read(n);

sum:=0;

while n>=10 do
begin

if n mod 10 = 0 then sum:=sum+n;
n:=n-1;

end;

write(sum);

end.

---

-------------------------------------

---

вторая задача

---

----------------------------------

---

program HelloWorld;

var

m, n : integer;

begin

read(n,m);

while m>=n do
begin

writeln(n);
n:=n+1;

end;


end.

---

----------------------------------

---

ретья задача

---

----------------------------------

---

program HelloWorld;

var

m, n : integer;

begin

read(n,m);

while m>=n do
begin

if n mod 3 = 0 then writeln(n);
n:=n+1;

end;

end.

---

Спасибо)