Определить является ли автобусный билет счастливым.

Question

Информатика

Филарета

18 февраля, 03:23

Определить является ли автобусный билет счастливым.

+1

Ответы (1)

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

Изот · Answer 1

Var x: integer;

begin

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

read (x) ;

for i:=1 to 3 do begin

d: = x mod 10;

x: = x div 10;

s1: = s1+d

end;

for i:=1 to 3 do begin

d: = x mod 10;

x: = x div 10;

s2: = s2+d

end;

if s1=s2 then write ('счастливый') else write ('не счастливый')

end.