Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 71 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

clrscr;
writeln('--- Start work ---');
Assign(F, 'Input.txt');
{$I-} {проверяем существование файла Input.txt}
Reset(F);
{$I+}
if IOresult <> 0 then
begin
Writeln('Input.txt не найден');
goto error;
end;
i:=1;
Readln(F,n); {считываем и выводим на экран первую строку}
if (n>15) or (n<1) then
begin
write('В первой строке находится неверное число , т. к. большее 15
или меньше 1');
goto error;
end;
writeln('Входные данные:');
writeln(n);
while not Eoln(f) do {считываем и выводим на экран вторую строку}
begin
Read(F,macca[i]);
write(macca[i],' ');
if macca[i]<1 then
begin
writeln;
writeln('Как видите сами,в Input.txt ошибка в ',i,'-м числе , т. к.
масса тела не может быть меньше одного .');
goto error;
end;
i := i+1;
end;
if n=1 then
begin
writeln;
writeln('Предмет только один, поэтому можете положить его в
любой из рюкзаков.И этот рюкзак будет весить ',macca[1]);
goto error;
end;

Страницы