Var
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if a>4 then inc(b);
b:=b*10;
Writeln(b)
end.
Так как файлы не приложены, то могу только объяснить, как делать это задание.
1. Открываешь файл "<span>p1.bmp" в Paint'е.
2. Открыв файл, справа открываешь меню и выбираешь пункт "Сохранить как".
3. Внизу есть строка "Тип файла". Нажимаешь на нее и будет выпадающий список (смотри вложение).
4. Выбираешь "</span><span>24-разрядный рисунок".
5. Сохраняешь в нужной папке.
Точно так же делаешь с остальными файлами, только меняешь тип.
Чтобы сравнить объем полученных файлов, жмешь правой кнопкой мыши на любой из них, нажимаешь "Свойства" и записываешь где-нибудь его размер. Так делаешь для всех файлов.
Посчитаешь и сравнишь объемы.
Качество: оцени сам(а), виднее будет.</span><span />
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.
var
a,b:real;
begin
writeln("Введите рост бамбука за сутки");
readln(a);
b:=a/1440;
writeln(" За минуту бамбук вырастает на ", b:0:3," см");
end.
P.s. Мы делим а на 1440, потому что сначала мы делим (если ввели 86) 86 на 24 и получаем на сколько он вырастает за час, а потому делим на 60 и получаем на сколько вырастает за минуту, значит 60*24=1440, все остальное должно быть понятно