<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// без проверок на правильность
var st:=ReadlnString;
var p:=st.MatchValues('(\d+)').Select(x->x.ToBigInteger);
var s:=BigInteger(0);
foreach var n in p do s+=n;
Writeln(s)
end.
<u>Примеры</u>
12+32+43+5
92
123424634243542+36745656856678567578654+434253+3222+322523230
36745656980103524782901
Type ye=1850..2100;
var year, year1:ye;
name:string;
a:integer;
begin
writeln('Какой сейчас год?');
readln(year);
writeln('Твое имя?');
readln(name);
writeln('В каком году ты родился(родилась)?');
readln(year1);
a:=year-year1;
writeln('Твое имя ', name);
writeln('Ты прожил ', a, ' Лет(года)');
writeln('Ты прожил приблизительно ', a*365, ' дней');
writeln('Ты прожил приблизительно ', a*364*24, ' часов');
end.
Дано:
К=800*600
i= 16 бит
T=10 с
v=20 кадра/с
А-?
Решение:
I=K*i
A=I*v*T
I=800*600*16 бит=7680000 бит=937,5 Кбайт
A=937,5 Кбайт*20 кадра/с * 10с=187 500 Кбайт=0,18 Гбайт
Ответ: 0,18 Гбайт