Лужа-ложа-кожа-кора-гора-горе
Паук-парк-пара-фара
(-^〇^-)(=^▽^=)\(•ㅂ•)/♥(*¯︶¯*)ヘ( ̄ω ̄ヘ) ♪
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
В задаче №3 вижу только одну ошибку. Имя программы не может начинаться с цифры.
Задача №4 представлена частично, поэтому определить наличие ошибок здесь проблематично.
1) ннкнлки - по другому у меня не вышло и букву м вставить некуда
2) 48*40*40*8/8/1024 = 614 400 бит = 75Кбайт
3)625 = bin: 0010 0111 0001 => 5 единиц