Задать вопрос на языке Pascal: в записи каких трёхзначных чисел присутствует цифра 9?

Question

Информатика

Дрона

6 января, 01:48

Задать вопрос на языке Pascal: в записи каких трёхзначных чисел присутствует цифра 9?

+2

Ответы (1)

Знаете ответ на вопрос?

Арсеня · Answer 1

Program n;

var a, b, c, d:integer;

begin

writeln ('Введите трехзначное число') ;

readln (d) ;

a:=dmod10;

d:=ddiv10;

b:=dmod10;

c:=ddiv10;

if adiv9=1 then

writeln ('da') ;

if bdiv9=1

then writeln ('da') ;

if cdiv9=1 then writeln ('da') else writeln ('no') ;

end.

(проверь ее)