Помогите решить задачки

[Newum]

Добрый день, уважаемые форумчане! Молю Вас о помощи – нужно решить несколько задачек по Паскалю. Из 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-столбцов. Найдите и распечатайте суммы каждого столбца массива.

[__STDC__]

Факультета информатики?! Зачем вам это? Переводитесь лучше...

2. Как-нибудь так (вариант с представлением числа целым типом)

   flag := ((num div 100 + num div 10 mod 10 + num mod 10) mod 2) = 0;
   if flag then write('YES') else write('NO');

или как вариант

   writeln(((num div 100 + num div 10 mod 10 + num mod 10) mod 2) = 0);

Через прямоугольное окошко размером P*Q Винни-Пух хочет выбросить круглый воздушный шарик радиусом R. Написать программу, определяющую, пройдет ли шарик в окошко.

в каком инсте такой фак информатики?)))

if (R < P/2) and (R < Q/2) then...

дальше не про Винни-Пуха... неинтересно..

***
Меня если честно поражает образ мысли современного студента.. вот вы думаете если за вас в этом семестре решат проги, то в следующем все будет ок? Паскаль кончится? Ну начнется у вас что-нибудь еще... И как дальше-то? Если вы не в состоянии решить эти задачи.. зачем вам это? Задумайтесь... //Прощу прощения за оффтоп

[NEMO1991]

Задание 8. Строковый тип данных
Дана строка, составляющая из последовательностей символов латинского алфавита, разделенных одним пробелом. Определить кол-во слов, которые начинаются и заканчиваются одной и той же буквой.

uses crt;
var s,s1,sub:string;
    i,j,m,n,x:integer;
    a:array[1..100] of string;
    flag:boolean;
procedure Form(s:string);
begin
i:=0;n:=0;
flag:=false;
repeat
inc(i);
if flag and(s[i]=' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   flag:=false;
                   end;
if s[i]<>' ' then begin
      sub:=sub+s[i];
      flag:=true;
     end;
until i=length(s);
if flag then begin
              inc(n);
              a[n]:=sub;
             end;
end;
function Equal(s:string):boolean;
begin
if s[1]=s[length(s)] then Equal:=true
   else Equal:=false;
end;

begin
clrscr;
writeln('напиши строку');
readln(s);
Form(s);

x:=0;
for i:=1 to n do
  if Equal(a[i]) then inc(x);
writeln('кол-во слов:',x);

end.

все задачи перед этой легкие ток ппц лень математику вспоминать))

[NEMO1991]

этим же задачам вроде еще в первые 2 месяца учат тем более информатиков...

[__STDC__]

Я даже больше скажу... все задачи уже решались на форуме неоднократно... будущих программистов учат пользоваться поиском?

[Newum]

NEMO199, спасибо за задачку

[ОДИНОЧЕСТВО В СЕТИ]

Задача 7. Функции

function max(a:real;b:real):real;
begin
if a>b then max:=a
else max:=b;
end;

Задача 4. Цикл с параметром

srok:=0;
repeat
a:=a*(1+b/100);
a:=a-c;
inc(srok);
until a<=0;

бросайте свой факультет информатики!!!