Надо составить программу ,помогите пожалуйста !!!Очень срочно
Ответы:
17-01-2019 00:04
У вас условие неправильно записано в 1 (условие не там), во втором в цикле не "go" а "to", ну да ладно1var n,s,a,i:integer;beginreadln(n);s:=0;a:=1;s:=s+a*a;a:=a+1;if a > nthenwriteln(s)elsebegins:=s+a*a;a:=a+1;end;end.2var n,s,a:integer;beginreadln(n);s:=0;for a:=1 to n dobegins:=s+(a*a);end;writeln(s);end.
Также наши пользователи интересуются:
Сумму,где первое слагаемое-произведение чисел 600 и 6,а воторое слагаемое-число 1400Слово-буквений анализ місто
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Надо составить программу ,помогите пожалуйста !!!Очень срочно» от пользователя Миша Русын в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!
