решите задание в delphi 7 (бред не пишите плз)(без массива)

+ 0 -

Nastena1

25 янв. 2015 г., 0:23:29 (9 лет назад)

 program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
   var i,x,y,z, dwa,tri,shetire,pati:Integer;
begin 
 Writeln('student Fediya='); 
 Readln(i); 
 Writeln('student Sungat=');
  readln(x);
  Writeln('student Alex='); 
 readln(y); 
Writeln('student Halif='); 
Readln(z); 
 case i of 
 2: Inc(dwa); 
  3: Inc(tri); 
 4: Inc(shetire); 
  5: Inc(pati); 
 end; 
 begin
    case x of 
 2: Inc(dwa); 
  3: Inc(tri);
   4: Inc(shetire);
   5: Inc(pati);
  end;
  end;
   begin
     case y of 
  2: Inc(dwa);
   3: Inc(tri); 
 4: Inc(shetire);   
5: Inc(pati); 
 end;   end; 
  begin     
 case z of   
2: Inc(dwa); 
 3: Inc(tri);  
4: Inc(shetire);   
5: Inc(pati);   
end;   
 end;
 WriteLn(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);
 ReadLn;
    { TODO -oUser -cConsole Main : Insert code here }end.

+ 0 -

Alenka09091984

25 янв. 2015 г., 2:22:41 (9 лет назад)

begin
 Randomize;
 SetLength(students, Random(100) + 1);
 for student := Low(students) to High(students) do
 begin
  students[student] := 2 + Random(4);
  Write(students[student], #32);
  case students[student] of
   2: Inc(two);
   3: Inc(three);
   4: Inc(four);
   5: Inc(five);
  end;

+ 0 -

Vikacom155

25 янв. 2015 г., 4:32:45 (9 лет назад)

end;
 Finalize(students);
 WriteLn(#13#10'two: ', two, #13#10'thee: ', three, #13#10'four: ', four, #13#10'five: ', five);
 ReadLn;
end.

+ 0 -

Vishnya

25 янв. 2015 г., 5:08:58 (9 лет назад)

Вы, мало что массив использовали в своем ответе, так еще и тут написали его... ясно же указано: "без массивов"

+ 0 -

Ernesto235

25 янв. 2015 г., 7:56:46 (9 лет назад)

напишите тогда правельно

+ 0 -

Markiv2010

25 янв. 2015 г., 10:21:51 (9 лет назад)

Пусть пишут те, у кого Дельфи установлен.