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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

GetCount:= res;
end;
procedure calcall;
var i,j:integer;
res:array[1..4] of byte;
begin
res[1]:=0;res[2]:=0;res[3]:=0;res[4]:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if field[i,j] = 1 then inc(res[GetCount(i,j)]);
writeln('Однопалубных - ',res[1]);
writeln('Двухпалубных - ',res[2]);
writeln('Трёхпалубных - ',res[3]);
writeln('Четырёхпалубных - ',res[4]);
end;
begin
readall;
calcall;
end.
6. Решение задачи «Рюкзак» (первый тур, номинация
«Первокурсники»), предложенное студентом 1 курса
физического факультета ВГУ Севериновым Дмитрием
Викторовичем
{ sdeman@yandex.ru}
program Predmety;
uses crt;
label error;
var
max,mr1,mr2:integer;{mr1-масса 1-го рюкзака,mr2-масса 2-го
рюкзака,max-вес самого тяжёлого предмета }
macca:array[1..15] of integer;{считаем ,что массы предметов даны
целыми числами в любых единицах измерения}
F:text;
r1,r2:array[1..15] of byte;{r1 и r2 - одномерные массивы , в которые мы
запишем номера предметов соответственно}
l1,l2,k,i,n,j:byte;
begin

Страницы