Проблемы с Паскалем - Pascal

Формулировка задачи:

Добрый день! Молю Вас о помощи – нужно решить несколько задачек по Паскалю. Из 10 сделала только 2, остальные ну никак не идут ;( Прошу помогите растерянной студентки факультета информатики Заранее Огромное Спасибо! Задача 2 на составление логических выражений Сумма цифр данного трехзначного числа N является четным числом Задача 3. Условный оператор Через прямоугольное окошко размером P*Q Винни-Пух хочет выбросить круглый воздушный шарик радиусом R. Написать программу, определяющую, пройдет ли шарик в окошко. Задача 4. Цикл с параметром Некто взял ссуду в банке величиной А рублей под В % годовых. Ежегодно заемщик вносит платежи в счет ссуды в С руб. Написать программу, определяющую через сколько лет будет погашена ссуда и через сколько лет будет погашена ссуда, и сумму денег, выплаченных заемщиком банку. Задача 5. Циклы с условиями Написать программу, вычисляющую сумму y=sin⁡〖1π/2〗-sin⁡〖3π/4〗+sin⁡〖5π/8-…〗 Сумма должна содержать 100 слагаемых, попадающий в промежуток [а, b] Задача 7. Функции Разработать функции для решения следующих задач: Даны действительные числа а,b,с. Получить max (a,a+b) + max (a,b+c)/1+max(a+bc,1,15) Задание 8. Строковый тип данных Дана строка, составляющая из последовательностей символов латинского алфавита, разделенных одним пробелом. Определить кол-во слов, которые начинаются и заканчиваются одной и той же буквой. Задание 9. Одномерный массив. Преобразование массива Решить задачи, оформив решение в виде функций генерации вывода и обработки массивов. Дан целочисленный массив, состоящий из n-элементов. Удалить из массива все элементы, встречающиеся менее 2-х раз. Задание 10. Двумерный массив. Решить задачи, оформив решение в виде функций генерации вывода и обработки массивов. Предусмотрите функции генерации массива ввод границ диапазона случайных чисел. Дан двумерный массив, из m-строк и n-столбцов. Найдите и распечатайте суммы каждого столбца массива.

Решение задачи: «Проблемы с Паскалем»

textual
                            Листинг программы 
                        

                            uses crt;
const n=100;
var i,k:integer;
    a,b,s,t,y:real;
begin
clrscr;
randomize;
repeat
writeln('Введите границы диапазона чисел a,b от -1 до 1 b>a');
readln(a,b);
until (abs(a) <=1)and(abs(b) <=1)and(b > a);
k:=0;s:=0;i:=1;t:=1;
repeat
t:=t*2;
y:=sin((2*i-1)*pi/t);
if (y>=a)and(y<=b)then
 begin
  k:=k+1;
  if odd(i) then s:=s+y
  else s:=s-y;
 end;
until k=n;
writeln('k=',k);
write('Сумма=',s:0:8);
readln
end.
                        