В паскале помогите пожалуйста

Question

В паскале помогите пожалуйста

---

Comments

сколько раз надо сделать цикл и можно написать последнюю строку на фотографии а то не понятно

---

??

---

s:=s+x

---

5 или 6 раз цикл сделать?

Answer 1

Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить

Comments

Если что то рекомендую удалить readln(x); и поставить вместо этого x:=0; а то если поставить больше 5 то будут проблемы

---

ОК спасибо

---

можете блок-схему сделать?

---

пожалуйста

---

ой. тут я беспомощен

---

лучше сделай отдельный вопрос чтобы тебя заметили и помогли

---

Хорошо спасибо ещё раз