Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано пятизначное число из интервала [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.