Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.