1) Задано положительное число A. Найти сумм всех четных чисел в интервале от 1 до A....

Question

1) Задано положительное число A. Найти сумм всех четных чисел в интервале от 1 до A. Число А может иметь дробную часть.
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B

Comments

На языке Паскаль?

---

турбо паскаль вроде

---

Может попозже. Задачки не трудные

---

К завтрашнему дню нужно(

---

А если "а" целое будет.Пойдет?

---

Да хотя бы как-нибудь, абсолютно не могу понять(

Answer 1

Готово .....................
UPD.изменил, теперь можно и не целые "а"

Comments

Спасибо)

---

Переменная S в первом варианте проге не нужна. Вторую вообще не сделал ужс.

---

Ну лишнее можно стереть,а так все верно

Answer 2

1. a:= round(a);
s:=0;
for i:=1 to a do
if i mod 2=0 then s:=s+i;
2. for i:=a to b do
writeln(sqrt(i));