Бережливым быть умей,
И по клавишам не бей,
Там, учтите этот факт,
Если вводишь ты ответ,
А компьютер скажет "Нет",
По дисплею не стучи,
Лучше правила учи!
Разрешать работу строго
С разрешения педагога,
И учтите : вы в ответе,
За порядок в кабинете!!
Эта программа подсчитывает сумму первой половины элементов массива. Т.е. сумма считается для тех элементов, индекс которых (i) меньше n-i.
В данном случае n=10, => максимальное i для которого будет выполнен подсчет = 5 (5<=10-5)
Т.к. индексация начинается с нуля, - берем сумму 6-ти первых чисел:
0+1+2+3+4+5=15
Ответ: 3) 15
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.