Var x:integer; begin writeln('Введіть число x'); read(x); if x mod 7=0 then writeln('Число ',x,' кратне 7') else writeln('Число ',x,' не кратне 7') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
