PascalABC

дано целое число. Верно ли, что в числе нет 5?

Question

Информатика

Анфуса

15 августа, 23:27

PascalABC

дано целое число. Верно ли, что в числе нет 5?

+4

Ответы (2)

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

Ионич · Answer 1

Program n1;

var a: integer;

function is5 (var x: integer) : boolean;

begin

is5:=false;

while (x0) do begin

if (x mod 10=5) then

begin

is5:=true;

break;

end;

x : = x div 10;

end;

end;

begin

readln (a) ;

if is5 (a) then write ('есть')

else write ('нет') ;

end.

Талюша · Answer 2

Var A:integer;

B:boolean;

Begin

B:=true;

Write ('A = ') ; Read (A) ;

While A>0 do

Begin

if A mod 10 = 5 then B:=false;

A:=A div 10;

End;

if B then WriteLn ('Верно')

else WriteLn ('Не верно')

End.

PascalABCдано целое число. Верно ли, что в числе нет 5?

PascalABC

дано целое число. Верно ли, что в числе нет 5?