Как-то условие не очень понятно. Если требуется найти сумму ДВУХ чисел, то программа может быть такой: 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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку