Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

Перевести код с paskal на c++

РАЗУМИСТ РАЗУМИСТОВ Ученик (94), открыт 3 недели назад
var
n, x, k:longint;
c1,c2,c4,c5:byte;
begin
k:=0;
for n:= 10000 to 99999 do begin
x:=n;
c5:= x mod 10; x:= x div 10;
c4:= x mod 10; x:= x div 100;
c2:= x mod 10; c1:= x div 10;
if abs((c1+c2) - (c4+c5)) <= 2 then inc(k);
end;
write(k)
end.
Похожие вопросы
Также спрашивают