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

Спасибо)

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

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

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

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