Pascal ABC.NET beginVar a:=ReadInteger('Введите число');Var p:=ReadInteger('Введите p');if a mod 2=0 then writeln('Кратно двум');if a mod 3=0 then writeln('Кратно трем');if a mod p=0 then writeln('Кратно p');end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
