var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>
Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Непонятно, что означает "дополнительный" стакан молока... т.е. есть еще основная порция молока? Если так, то (смотри файл) в столбец "основное молоко" надо добавить значения. Если нет, то этот столбец вообще убрать и посчитать итог по столбцу "дополнительное молоко".
И, да, значения все, естественно, с потолка... Сами введите, какие нужно.