Циклы, Теория чисел...

[MooN2h]

Вообщем привествую всех программистов Помогите пожалуйста у меня завтра экзамен , а мне нужно выполнить кое какие задачи с паскалем. Чтобы с лёгкостью решить такие же на экзамене
1. Ветвление: Определить,является ли треукольник со сторонами a,b,c равнобедренным.
2.Циклы: Написать программу вычисления суммы всех двухзначных чисел,кратных 3 и 9.
3.Теория чисел: Найти количество чётных цифр целого положительного числа.
4.Строковые велечины: Дан текст. Проверить можно ли заданной последовательностью символов составить слово "информатика"
5.Процедуры и функции: Даны действительные числа x1,y1,x2,y2,...x10,y10-Найти периметр десятиугольника,вершины которого имеют соответсвенно координаты (x1,y1), (x2,y2),...,(x10,y10)Определить функцию вычисления расстояния между двумя точками , заданными своими координатами
p.s x1 , y1 - икс первое ,игрик первое и тд

Если не трудно помогите пожалуйста, от вас зависет моя жизнь =(

[DRAgon™]

1)

uses
  crt;
var n,i,m,j,a,b,c:Integer;

  begin

  Writeln('Введите 1 сторону');
  readln(a);
  Writeln('Введите 2 сторону');
  readln(b);
  Writeln('Введите 3 сторону');
  readln(c);
  if  (a<b+c) or (b<a+c) or (c<a+b) then  Writeln('является')
   else
     Writeln('не является');





  end.

[DRAgon™]

2)

uses crt;
VAR n,c,i:Integer;
begin
c:=0;
for i:=10 to 99 do
if (i mod 3=0)AND(i mod 9=0) then  c:=c+i;
Writeln(' сумма всех двухзначных чисел,кратных 3 и 9 -  ',c);
END.

[DRAgon™]

3)

uses crt;
 var
  ch,c:integer;
begin
  c:=0;
  Writeln('Введите число');
  readln(ch);

    if (ch mod 10) mod 2=0 then
      c:=c+1;;
    ch:=(ch-ch mod 10) div 10;
  writeln('Количество четных цифр в числе  = ',c)
end.

[DRAgon™]

4)
[CODE]uses crt;
CONST kol = 11;

[DRAgon™]

П.с. нажми на весы слева,а то скоро репутация загнеет,подправьте если не правильно

[MooN2h]

По поводу 4 я не понял что-то.. Обьясни пожалуйста

[DRAgon™]

Сообщение от MooN2h

По поводу 4 я не понял что-то.. Обьясни пожалуйста

Хм а может уже сам зделаешь я те и так 3 задания зделал

[DRAgon™]

Добавь хотя бы репутацию(слева весы такие);

[MooN2h]

Dragon добавил помоги с 4 пожалуйста