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

Question

Информатика

Люся

11 октября, 15:08

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

+1

Ответы (1)

Знаете ответ на вопрос?

Васильич · Answer 1

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.