Предмет: Информатика,
автор: MrCalling
Ответы
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
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.
Результат
20
// Внимание! Если программа не работает, обновите версию!
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.
Результат
20
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: kirill44uiop666
Предмет: Физика,
автор: kurusinaangelika
Предмет: Информатика,
автор: jik3
Предмет: Литература,
автор: ola53