Решите задание в delphi 7 (бред не пишите плз)(без массива) группа студентов сдает экзамен. оценки формируются случайным образом от 2 до 5. Напечатать кол-во полученых двок, трок, четверок, пятерок
Решите задание в delphi 7 (бред не пишите плз)(без массива)
группа студентов сдает экзамен. оценки формируются случайным образом от 2 до 5. Напечатать кол-во полученых двок, трок, четверок, пятерок
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы