Определить, является ли билет с 4х значным числом счастливым. в паскале) пожалуйста))

Question

Определить, является ли билет с 4х значным числом счастливым. в паскале) пожалуйста))

Экономика

Гость

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

Accepted Answer

program bilet; uses crt; var a,b,c,d,s,n,k:real; begin write('vvedite chislo'); readln(k); a:=k div 1000; b:=k div 100 mod 10; c:=k div 10 mod 100 d:=k mod 10; s:=a+b; n:=c+d; if s=n then writeln('bilet schastlivy') else writeln('bilet ne schastlivy'); readln; end.