Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.
var a,n,i,s:integer;
begin read(n);
while i<n do begin
read(a);
if (a mod 3=1) then s:=s+a; i:=i+1;
end;
writeln(s);<span>
end.</span>
F =468,75 Кбайт =468,75 *2^13 бит
D = 16 бит =2^4 бит - глубина звука
H =48 КГц =48*1000= 3*2^4 *1000 Гц - частота звука (1/c)
t=F : (D *H)
t =468,75 *2^13 : (2^4 *3 *2^4 *1000) = 468,75 *2^5 :3 :1000=
=156,25*32 :1000 = 5 000 : 1 000=5 (c)
ответ: t =5 секунд
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
<h2>Пример</h2>
Наша Маша громко плачет уронила в речку мячик
8
<span> в 105 году н. э. Цай Лунем </span>