Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal 7.0 / TP7DOS / INTEL
.PAS Program lab251;
uses crt;
var
A: array [1..10, 1..2] of real;
i,j,k: integer;
begin
clrscr;
for i:=1 to 10 do
for j:=1 to 2 do
begin
write ('Koli4estvo studentov v gruppe (',i,')=');
readln (A[i,1]);
write ('Koli4estvo otli4nikov v gruppe (',i,')=');
readln (A[i,2]);
if (A[i,1]/A[i,2]) > 0.15 then
writeln ('Mnogobotanov')
else
i:=i+1;
end;
end.
uses crt;
var
A: array [1..10, 1..2] of real;
i,j,k: integer;
begin
clrscr;
for i:=1 to 10 do
for j:=1 to 2 do
begin
write ('Koli4estvo studentov v gruppe (',i,')=');
readln (A[i,1]);
write ('Koli4estvo otli4nikov v gruppe (',i,')=');
readln (A[i,2]);
if (A[i,1]/A[i,2]) > 0.15 then
writeln ('Mnogobotanov')
else
i:=i+1;
end;
end.
Соседние файлы в папке TP7DOS