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

Question

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

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.