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

Question

Информатика

Агриппична

21 марта, 10:09

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

+4

Ответы (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.