program 1;
a:integer;
Begin
write ('a= ');
readln (a);
if (a mod 3=0) then
writeln ('да делится) ;
else
writeln('не делится');
readln;
end.
100 поинтов Нужно 2. На балан
Каким будет результат выполнения
1. Дано натуральное число Н, най
ПОМОГИИИИТЕЕЕЕЕ ОЧЕНЬ
2. Задание. Найти периметр и пло
.1 (№ 1486) На бесконечном поле