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

myka1

30.12.2020 05:59

Информатика

Есть ответ 👍

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

196

401

Посмотреть ответы 2

Ответы на вопрос:

кузя216

Информатика

4,6(83 оценок)

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.