Алгоритм и программа вычисления суммы 2 нечетных двузначных чисел пока сумма не станет 150 . используя цикл с "параметром" "до"

235

397

Посмотреть ответы 2

Ответы на вопрос:

16Milochka16

Информатика

4,4(30 оценок)

Как-то условие не понятно. если требуется найти сумму двух чисел, то программа может быть такой: 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