-Определить,начинается ли число на цифру 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a: integer;
begin
readln(a);
repeat
a := a div 10;
until a < 10;
if(a = 7) then writeln('Да, это число начинается на 7') else
writeln('Нет, это число не начинается на 7');
end.