Какое максимальное количество целых страниц текста, содержащего 60 символов в строке и 40 строк на странице, использующего алфавит в 256 символов, может содержать
текстовый файл, сохраненный на гибком магнитном диске 3,5”? будем считать, что для хранения данных на таком диске выделяется 2400 секторов объемом 512 байт.

плата вроде как, если не ошибаюсь

1)

var

x,y,s: real;

begin

readln(x,y);

s: =abs(x*y);

writeln(s: 8: 2);

end.

2)

var

a: integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else  writeln("нечетное число")ж

end.

нам дано, что на борту есть кок и капитан, т.е:

1) 15 голов - 1 кок - 1 капитан = 15-2= 13 - это количество матросов и котов вместе

дальше нам сказано, что всего лап и ног - 41:

2) от общего количества 41 - 1 нога капитана (т.к. было сказано, что капитан одноногий) - 2 ноги кока = 41 - 3 = 38 ног матросов и лап котов.

а дальше я сделала методом подбора, и у меня получилось 6 котов, 7 матросов, ну и кок с капитаном.

проверка:

  6*4 + 7*2 +1 + 2 = 41 ног и лап

6 + 7 + 1 + 1 = 15 голов

запишу на обычном языке, паскаль не помню уже.

а - первое число. б - второе число.

если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')

если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')

точно не помню как выглядит это в паскале, но что-то типо такого

if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');

if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');