Задание:
— Определить, начинается ли число на цифру 7 В паскале!
Решение:
var a: integer; begin readln (a); repeat a: =a div 10; until a < 10; if (a=7) then writeln ('Да, это число начинается на 7') else writeln ('Нет, это число не начинается на 7'); end.
Знаете другой ответ?