Помогите в паскале решить пожалуйста

[Sazary]

Шестая:

uses crt;
var
s : array[1..12] of string;
x : byte;
begin
clrscr;
s[1] := 'January';
s[2] := 'February';
s[3] := 'March';
s[4] := 'April';
s[5] := 'May';
s[6] := 'June';
s[7] := 'July';
s[8] := 'August';
s[9] := 'September';
s[10] := 'October';
s[11] := 'November';
s[12] := 'December';
write('Enter x: ');
readln(x);
if x in [1..12] then
 writeln(s[x])
else writeln('Incorrect x');
readln;
end.

capta1n Как вижу, продолжаете действовать в духе "добавить/изменить пару строчек - вот и новый вариант". ну-ну

[Sazary]

В 7-й у меня картинка не открывается.

I. (про четырехзначное число)

uses crt;
var
n,i,p : integer;
begin
clrscr;
write('N= ');
readln(n);
p := 1;
while n>0 do
  begin
  i := n mod 10;
  p := p*i;
  n := n div 10;
  end;
writeln('P= ',p);
readln;
end.

[capta1n]

6)

program month;
var
 a : integer;
begin
 write ('a= '); readln(a);
 case a of
   1 : writeln ('January');
   2 : writeln ('February');
   3 : writeln ('March');
   4 : writeln ('April');
   5 : writeln ('May');
   6 : writeln ('June');
   7 : writeln ('July');
   8 : writeln ('August');
   9 : writeln ('September');
   10 : writeln ('October');
   11 : writeln ('November');
   12 : writeln ('December');
   else writeln ('Error')
 end;
 readln
end.

[capta1n]

I)

var
 n : integer;
 a : array [1..4] of integer;
begin

  write ('count= '); readln(n);
  if (n>999) and (n<=9999) then
  begin
    a[1]:=n mod 10;
    a[2]:=n mod 100 div 10;
    a[3]:=n mod 1000 div 100;
    a[4]:=n div 1000;
    writeln (a[1]*a[2]*a[3]*a[4]);
  end
  else writeln ('Only for n>999 and n<=9999');
  readln

end.

[Sazary]

IV (месяцы)

uses crt;
var
g,m,num : integer;

begin
clrscr;
write('Vvedite god: ');
readln(g);
write('Vvedite mesyac: ');
readln(m);
case m of
1 : num := 31;
2 : if g mod 4 = 0 then num := 29
    else num := 28;
3 : num := 31;
4 : num := 30;
5 : num := 31;
6 : num := 30;
7 : num := 31;
8 : num := 31;
9 : num := 30;
10 : num := 31;
11 : num := 30;
12 : num := 31;
else num := -1;
end;
if num <> -1 then writeln(num)
else writeln('error');
readln;
end.

[Sazary]

III (про площадь треугольника)

uses crt;
var x,y,x1,x2,x3,y1,y2,y3:real;
s,s1,s2,s3:real;
Begin
Clrscr;
writeln('Vvedite koordinaty treugolnika: ');
write('x1= ');read(x1);write('y1= ');read(y1);
write('x2= ');read(x2);write('y2= ');read(y2);
write('x3= ');read(x3);write('y3= ');read(y3);
write('Vvedite koordinaty tochki: ');
write('x= ');read(x);write('y= ');readln(y);
If (x1=x2) and (x3=x1) or (y1=y2) and (y2=y3) then
  writeln('Nevernye koordinaty treugolnika!')
else
 begin
 s:=1/2*abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));
 s1:=1/2*abs((x2-x1)*(y-y1)-(x-x1)*(y2-y1));
 s2:=1/2*abs((x-x1)*(y3-y1)-(x3-x1)*(y-y1));
 s3:=1/2*abs((x2-x)*(y3-y)-(x3-x)*(y2-y));
 If s1+s2+s3=s then writeln('Tochka v treugolnike! ')
 else writeln('Vne treugolnika!');
 end;
readln;
end.

По второй задаче (про автомобиль) - вроде как, мало данных.

II. Грузовой автомобиль выехал из одного города в другой со скоростью V2 км/ч. Составить программу, определяющую, догонит-ли легковой автомобиль, грузовой через t1 ч после своего выезда

Что еще дано? Расстояние между городами, скорость легкового?
И еще: что имеется в виду.. Догонит ли легковушка грузовик спустя t1 ч после выезда (кстати, когда она тогда выехала?), или догонит ли она его вообще, если отправится спустя t1? (тогда, видимо, нужно знать расстояние между городами)

[capta1n]

II)

var
 S : word;
 v1,v2 : word;
 t,t1,t2 : word;
 flag : boolean;
begin

  flag:=false;
  write ('Rassto9nie S= '); readln(s);
  write ('Skorost'' V gruzovika V= '); readln(v1);
  write ('Vrem9 puti gruzovika do viezda legkovogo t= '); readln(t1);
  if v1*t1>=S then flag:=true
  else
  begin
    write ('Vvedite skorost'' V legkovogo V= '); readln(v2);
    t:=trunc(s/v1);
    t2:=t-t1;
    if V2*t2<=S then flag:=true
  end;
   if flag then write ('Ne ');
   writeln ('dogonit');
   readln;
end.

[capta1n]

V. Составить программу, которая печатает true,если точка с координатами (x,y,) принадлежит заштрихованной области, и false в противном случае(рисунок на ссылке)http://forum.raid.ru/index.php?act=a...post&id=125471

я не собираюсь регестрироваться

[Gogol]

Спасибо, господа, не знаю что бы я без вас делал. Вот рисунки, которые не открылись, будьет добры, выручите пожалуйста

V. Составить программу, которая печатает true,если точка с координатами (x,y,) принадлежит заштрихованной области, и false в противном случае
http://dump.ru/file/1471479

7. Составить программу, которая печатает true,если точка с координатами (x,y,) принадлежит заштрихованной области, и false в противном случае
рисунок к 7й задаче
http://dump.ru/file/1471480