PascalABC.NET
// Так уже учат в некотрых школах
// Это современный Паскаль.
begin
var a := ReadArrInteger(10);
a.Sum.Println
end.
Turbo Pascal
// А так еще учат в других школах.
// Таким Паскаль был в 1983 году.
uses Crt;
var
i, s: integer;
a: array[1..10] of integer;
ClrScr;
for i := 1 to 10 do
Read(a[i]);
s := 0;
s := s + a[i];
Writeln(s);
ReadKey
1
Объяснение:
Подсчитаем количество цифр
от 1 по 99 по 20 каждая от 1 по 9
от 100 по 999 по 9·20+100=280 каждая от 1 по 9
от 1000 по 1999 по 10·20+100=300 каждая от 2 по 9 и 1000+10·20+100=1300 цифра 1
от 2000 по 2020 по 2 каждая от 3 по 9, 12 цифра 1 и 24 цифра 2
Тогда всего
1 - 1612
2- 624
от 3 по 9 - по 602
и их сумма
1·1612+2·624+602·(3+4+5+6+7+8+9)=28144
Сумма цифр 28144: 2+8+1+4+4=19
Сумма цифр 19: 1+9=10
Сумма цифр 10: 1+0=1
PascalABC.NET
// Так уже учат в некотрых школах
// Это современный Паскаль.
begin
var a := ReadArrInteger(10);
a.Sum.Println
end.
Turbo Pascal
// А так еще учат в других школах.
// Таким Паскаль был в 1983 году.
uses Crt;
var
i, s: integer;
a: array[1..10] of integer;
begin
ClrScr;
for i := 1 to 10 do
Read(a[i]);
s := 0;
for i := 1 to 10 do
s := s + a[i];
Writeln(s);
ReadKey
end.
1
Объяснение:
Подсчитаем количество цифр
от 1 по 99 по 20 каждая от 1 по 9
от 100 по 999 по 9·20+100=280 каждая от 1 по 9
от 1000 по 1999 по 10·20+100=300 каждая от 2 по 9 и 1000+10·20+100=1300 цифра 1
от 2000 по 2020 по 2 каждая от 3 по 9, 12 цифра 1 и 24 цифра 2
Тогда всего
1 - 1612
2- 624
от 3 по 9 - по 602
и их сумма
1·1612+2·624+602·(3+4+5+6+7+8+9)=28144
Сумма цифр 28144: 2+8+1+4+4=19
Сумма цифр 19: 1+9=10
Сумма цифр 10: 1+0=1