(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
<span>2) каждому символу их двоичные коды</span>
Просто,скачай другую программу.Или же зайди,в настройки и нажми на яркость.
Смотрим на кол-во строк в которых ширина меньше 15 . таковых 4. смотрим на графу вид и из 4 выбираем только ч/б. таковых 2.
не 3, тк в условии написано МЕНЬШЕ 15, а не МЕНЬШЕ ИЛИ РАВНО 15.
ОТВЕТ-2