Дано пятизначное число из интервала [10000, 32767]. Найти сумму первой, второй и пятой цифр этого числа.
Дано пятизначное число из интервала [10000, 32767]. Найти сумму первой, второй и пятой цифр этого числа.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a,s:integer;
begin
clrscr;
randomize;
a:=random(22678)+10000;
writeln('число:',a);
s:=(a mod 10)+(a div 10000)+(a mod 10000 div 1000);
write('сумма 1,2 и 5 цифр:',s);
end.
Не нашли ответ?
Похожие вопросы