var a: integer; begin readln(a); repeat a := a div 10; until a < 10; if(a = 7) then writeln('Да, это число начинается на 7') else writeln('Нет, это число не начинается на 7'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
