<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllText('mas102.txt').ToWords;
var s:=BigInteger(0);
foreach var w in a do s+=w.ToBigInteger;
Writeln(s mod 104);
end.
<u>Результат</u>
20
Program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
В первом правильный ответ 2)12
во втором правильный ответ 5)1100