Нажмите (windows+R) и ведите программу и нажмите выполнить и всё
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Число членов последовательности:');
var s := ReadSeqInteger('Вводите:', n)
.Where(p -> (p < 10) or (p > 50)).Sum;
Println('Сумма отобранных членов равна', s)
end.
2тб=9 225 753 600байт 2*1048g*1048m*1048k*8б=
N=30+10=40, 2^i=40, i=6 бит
7*6:8≈6 байт
V=32*6=192 байта