помогите пожалуйста как определить ровна ли сумма двух первых цифр 4х-значного заданного числа сумме двух его последних цифр. Помогите пожалуйста очень надо!

1

Ответы и объяснения

2012-12-26T17:01:51+04:00

var st:string;
s,s1,i,n,c,a,b:integer;
begin
read(a);
str(a,st);
s:=0;
s1:=0;
for i:=1 to 4 do begin
val(st[i],n,c);
if (i=1) or (i=2) then s:=s+n
else s1:=s1+n; end;
if s1=s then write('Да')
else write('Нет');
end.