Решить дано пятизначное число из интервала [10000, 32767]. найти сумму первой, второй и пятой цифр этого числа.

nagibator893067TITAN nagibator893067TITAN    2   22.05.2019 08:20    2

Ответы
elinaaldamowa elinaaldamowa  17.06.2020 12:21

var

n,s:integer;

begin

repeat

write ('N = ');readln(n);

until (n>=10000) and (n<=32767);

s:=n div 10000 + (n div 1000) mod 10 + n mod 10;

writeln ('Summa: ',s);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика