Помогите решить информатику, и если не сложно объясните, как решать, спасибо Var s, k:integer; begin s:=0 for k:=1 to 8 do s:=s+k; writeln(s) end. Var s, k: integer; begin s:=20; k:=0; while s <60 do begin s:=s+4; k:=k+1 end; writeln(k) end. Var s, k: integer; begin s:=100 k:=8; repeat s:=s-k; k:=k-1; until k<0; writeln(s) end.
:integer; begin s:=0 for k:=1 to 8 do s:=s+k; writeln(s) end. Var s, k: integer; begin s:=20; k:=0; while s <60 do begin s:=s+4; k:=k+1 end; writeln(k) end. Var s, k: integer; begin s:=100 k:=8; repeat s:=s-k; k:=k-1; until k<0; writeln(s) end.
Ответы:
18-11-2018 14:12
Ответы есть взади учебника !
Также наши пользователи интересуются:
В магазин завезли 1750 календарей в пачках.Перекидные календари были в пачках. по 50 ?План на тему в какие группы входит типичный ученик шестого класса
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите решить информатику, и если не сложно объясните, как решать, спасибо Var s, k» от пользователя Dmitriy Naumenko в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!