Question

решите задание в delphi 7 (бред не пишите плз)(без массива)
группа студентов сдает экзамен. оценки формируются случайным образом от 2 до 5. Напечатать кол-во полученых двок, трок, четверок, пятерок

Answer 1

 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.

Answer 2

Это не Дельфи. В нем Writeln так не будет работать.

Answer 3

И потом, в условии написано: БЕЗ МАССИВА.

Answer 4

извиняюсь за кривезну

Answer 5

По крайней мере, ЭТО теперь работоспособно))