паскаль задачка

[pomoshnic]

Сообщение от ириша

и то что зеленым написано оно идолжно в программе быть зеленым как это сделать?????

Ничего ненужно делать зеленым.

[pomoshnic]

Сообщение от ириша

как *.pas ЭТО как ??? просто вставить в блокнот
И Огромное спасибо за помощь

1)Скопировать в блокнот код.
2)В блокноте нажать Файл>Умиранить как>Ввести имя 'prog.pas', и нажать Сохранить.
3)Перетащить 'prog.pas' на ярлык (файл Turbo.exe).
4)Нажать контрол+ф9

[ириша]

спасибо за помощь сейчас попробую

[ириша]

мне написал ошибку неправельный числовой формат это как и как поменять формат?????

[ириша]

а по второй задачке что то можете подсказать?

[alex_fcsm]

Напишите что Вы ввели и как Паскаль ругнулся на это

p.S.Дробную часть Числа нужно вводить через точку 7.5 а не 7,5

[ириша]

(-12,-33,-29,-19) во так ввела, там написано введите область определения (х,y,x1,y1)

[maladoy]

запятые не надо было вводить да и скобки тоже

[alex_fcsm]

Судя по посту 3 вводите числа через Enter без всяких скобок и запятых

[alex_fcsm]

Сообщение от ириша

а по второй задачке что то можете подсказать?

uses crt;
const n=5;
      m=5;
      k=2;
      l=7;
var a:array[1..n,1..m] of string[l];
    i,j,p,k1,temp:integer;
    sogl,glas:set of char;
    flag:boolean;
    
begin
clrscr;
glas:=['A','E','O','U','Y','I'];
sogl:=['A'..'Z']-glas;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    p:=random(l-k+1)+k;
    a[i,j]:='';
    for k1:=1 to p do
     a[i,j]:=a[i,j]+chr(random(26)+65);
    write(a[i,j]:8);
   end;
  writeln;
 end;
 temp:=0;
 writeln('Words with 2 glas');
 for i:=1 to n do
  for j:=1 to  m do
   begin
    flag:=false;
    for p:=1 to l do
     begin
      if (a[i,j][p] in glas ) and flag then begin
                                             writeln(a[i,j]);
                                             inc(temp);
                                             break;
                                            end;
      if a[i,j][p] in sogl then flag:=false
               else if a[i,j][p] in glas then flag:=true;
     end;
   end;
   writeln('Amount ',temp);
end.

Выводятся слова и их количество, в которых идут подряд 2 гласные