Нужно найти счастливое число, счастливым число называется если сумма первых трёх цифр равна сумме последних трёх цифр и эти суммы являются чётными ,проверьте на ошибки program swan_1;
var y,z,c,d,p,f:integer;
writeln('введите шестизначное число');
readln(y);
z:=y div 100000;
b:=(y div 10000)mod 10;
c:=(y div 1000)mod 10;
d:=(y div 100)mod 10;
p:=(y div 10)mod 10;
f:=y mod 10;
j:=z+b+c;
u:=d+c+f;
if(j=u)and(j mod 2=0)and (u mod 2=0) then writeln('счастливое число')
else writeln('несчастливое число')
end.
var y,z,c,d,p,f:integer;
writeln('введите шестизначное число');
readln(y);
z:=y div 100000;
b:=(y div 10000)mod 10;
c:=(y div 1000)mod 10;
d:=(y div 100)mod 10;
p:=(y div 10)mod 10;
f:=y mod 10;
j:=z+b+c;
u:=d+c+f;
if(j=u)and(j mod 2=0)and (u mod 2=0) then writeln('счастливое число')
else writeln('несчастливое число')
end.
More Questions From This User See All