РЕШИТЕ ЛЁГКИЙ АЛГОРИТМ

РЕШИТЕ ЛЁГКИЙ АЛГОРИТМ
Гость
Ответ(ы) на вопрос:
Гость
a = 2, b = 0; Вопрос: а = 7? Если да: Закончить. Если нет: Прибавить к "a" единичку, а к "b" прибавить "a" **Причем, прошу заметить, сначала мы прибавляем к "a" единичку, а потом прибавляем к "b" "a"!!! Это важно! Поехали. а=2, б = 0. а = 7? нет >> а = 3, б = 3. а = 7? нет >> а = 4, б = 7. а = 7? нет >> а = 5, б = 12. а = 7? нет >> а = 6, б = 18. а = 7? нет >> а = 7, б = 25. а = 7? Да. >> Конец. Ответ: а = 7, б = 25. Если просили написать программу на языке Pascal, соответствующую алгоритму: Var a,b:integer; Begin a:=2; b:=0; while(a<>7) do begin; a:=a+1; b:=b+a; end; writeln('a = ',a,' b = ',b); readln(a); end. //На скриншоте результат работы данной программы  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы