"Олимпиадные задания по информатике"

1 задача

Проверить, поместится ли на диске компьютера музыкальная композиция, которая длится m минут и n секунд, если свободное дисковое пространство 6 мегабайт, а для записи одной секунды звука необходимо 16 килобайт.

решение

var m,n,t,v:integer;

begin

writeln('Введите m и n');

readln(m,n);

t:=60*m+n;

v:=16*t;

if v<=6144 then writeln('Композиция поместится')

else writeln('Не хватает ',v-6144,' килобайт');

end.

2 задача

Найти наибольшее целое число из четырех введенных с клавиатуры.

решение

var

x,y,z,w:integer;

begin

writeln('Введите четыре целых числа');

readln(x,y,z,w);

if x < y then

  x := y;

if x < z then

  x := z;

if x < w then

  x := w;

writeln('Максимальное число =  ', x);

readln;

end.

Краткое описание документа:

1 задача

Проверить, поместится ли на диске компьютера музыкальная композиция, которая длится m минут и n секунд, если свободное дисковое пространство 6 мегабайт, а для записи одной секунды звука необходимо 16 килобайт.

решение

var m,n,t,v:integer;

begin

writeln('Введите m и n');

readln(m,n);

t:=60*m+n;

v:=16*t;

if v<=6144 then writeln('Композиция поместится')

else writeln('Не хватает ',v-6144,' килобайт');

end.