Операторы цикла на Паскале
Вложений: 1
Помогите пожалуйста написать программу на паскале не знаю с чего даже начать пожалуйста)
|
Цитата:
|
Спасибо за помощь
|
Цитата:
uses crt; var n,m,s:integer; begin clrscr; write('Введите натуральное n='); readln(n); m:=1; s:=1; while s+sqr(m+1)<n do begin m:=m+1; s:=s+m*m end; writeln('m=',m,' s=',s); readln end. |
Цитата:
|
Спасибо большое за помощь)
|
Часовой пояс GMT +4, время: 04:57. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.