Как-то условие не очень понятно. Если требуется найти сумму ДВУХ чисел, то программа может быть такой: var a1,a2,s: integer; begin a1:=11; a2:=13; repeat a1:=a2; a2:=a2+2; s:=a1+a2; until s>=150; writeln(a1,'+',a2,'=',s); end. Результат работы программы: 75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так: var a,s: integer; begin a:=11; s:=0; repeat write(a,'+'); s:=s+a; a:=a+2; until s>=150; writeln('=',s); end. Результат: 11+13+15+17+19+21+23+25+27+=171
Во-первых, деловые документы они тоже переводят, мягко говоря, неважно. А во-вторых, художественное произведение невозможно перевести на другой язык по принципу "слово в слово". В любом живом языке существует большая зависимость смысла не только отдельных слов, но даже фраз от контекста, т.е. от окружения. У каждого народа собственная идеоматика. А пословица, переведенная на другой язык, зачастую полностью утрачивает свой смысл. Вот, к примеру, английская фраза "Curiosity kills the cat" (Любопытсто убило кошку). Оказывается, это английская пословица - аналог нашей "Любопытной Варваре нос оторвали". Невозможно все это втиснуть в программу-переводчик. Как перевести Jabberwacky - название стихотворения из кэрроловской "Алисы..."? Корней Чуковский использовал слово "Бармаглот". А что делать программе переводчику? Как перевести на иностранный язык детские рассказы Людмилы Петрушанской про калушу, которая "сяпала по напушке и увазила бутявку"?
var a1,a2,s: integer;
begin
a1:=11;
a2:=13;
repeat
a1:=a2;
a2:=a2+2;
s:=a1+a2;
until s>=150;
writeln(a1,'+',a2,'=',s);
end.
Результат работы программы:
75+77=152
Если нужно найти сумму 11+13+15+ ..., по ка не получится >=150, то это можно сделать так:
var a,s: integer;
begin
a:=11;
s:=0;
repeat
write(a,'+');
s:=s+a;
a:=a+2;
until s>=150;
writeln('=',s);
end.
Результат:
11+13+15+17+19+21+23+25+27+=171