СРОЧНО НАДО НАПИСАТЬ ПРОГРАММУ PASCAL .Для это задачи) Ежедневно Незнайка учит ** 4 слова...

Question

СРОЧНО НАДО НАПИСАТЬ ПРОГРАММУ PASCAL .Для это задачи)
Ежедневно Незнайка учит на 4 слова больше чем в предыдущий день. Знайка считает что силы Незнайки иссякнут когда нужно будет выучить 50 слов на какой день это произойдет?И блок схему но это необязательно

Answer 1

// PascalABC.NET 3.0, сборка 1073
var
  day,nwords:integer;
begin
  day:=1; nwords:=4;
  while nwords<50 do begin Inc(day); nwords:=nwords+4 end;<br>  Writeln('50 слов будет выучено на ',day,'-й день')
end.

Тестовое решение:
50 слов будет выучено на 13-й день

Comments

По "моей программе" получается то, что написано под словами "Тестовое решение". Видимо Вы неверно скопировали её текст.

---

Получиться "8 раз" что-то вывести не может уже хотя бы потому, что оператор вывода стоит не в цикле

---

а теперь по проще пожалуйста)

---

Куда уж проще.... скопируйте ВЕСЬ ТЕКСТ ищ ответа и запустите

---

*из

---

В программе цикл вот: while nwords<50 do begin Inc(day); nwords:=nwords+4 end;

---

Только в нем идет повторение. Поэтому вывод "8 раз" ну никак не может повторяться

---

Inc(day)а что значит команда Inc(day)???

---

Это стандартный оператор языка Паскаль. Означает увеличение значения аргумента на 1

---

Можно также писать day:=day+1; но это длиннее.