<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.
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
А = 1
Б = А = 1
В = А + Б = 1 + 1 = 2
Д = А = 1
Г = А + Д = 1 + 1 = 2
Е = Б + В + А + Г + Д = 1 + 2 + 1 + 2 + 1 = 7
К = Б = 1
Л = Д = 1
М = К + Е + Л = 1 + 7 + 1 = 9
Н = К + М + Л = 1 + 9 + 1 = 11
П = Н = 11
Р = Н = 11
Т = П + Р = 11 + 11 = 22
Ф = П + Т + Р = 11 + 22 + 11 = 44
Ответ: 44
Если масштаб на компе изменился- не беда нажми ctrl+0