17.06.2013, 19:56 | #1 (permalink) |
Новичок
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи в Паскале
2)Составить программу вичисления сумми всех парних чисел от 1 до 50 (без масивов, через цикл "while") |
17.06.2013, 19:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Поищите решение проблемы в аналогичных обсуждениях Помогите решить задачи на Паскале Помогите решить задачи на Турбо Паскале Помогите решить задачи в Паскале Помогите, пожалуйста, решить задачи в Паскале Помогите решить две задачи на Паскале Помогите решить задачи в Паскале, пожалуйста |
18.06.2013, 14:15 | #5 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну тогда-то что!
Цитата:
Код:
Var A,B,X:real; Begin Write('A= '); Readln(A); Write('B= '); Readln(B); Writeln('Result:'); If (A=0) and (B=0) then Writeln('Any value') else If (A=0) and (B<>0) then Writeln('No solution') else Write ('X= ',B/A:0:5); Readln End. Цитата:
Код:
Var i:Byte; Sum:Word; Begin Sum:=0; For i:=1 to 25 do Sum:=Sum+2*i; Writeln('Sum= ',Sum); Readln End. |
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
18.06.2013, 14:49 | #7 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var i:Byte; Sum:Word; Begin Sum:=0; i:=0; While i<50 do begin i:=i+2; Sum:=Sum+i; end; Writeln('Sum= ',Sum); Readln End. |
|
18.06.2013, 19:10 | #9 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var {заголовок раздела объявления переменных} i:Byte; {счетчик цикла} Sum:Word; {искомая сумма} Begin {начало тела программы} Sum:=0; {задание исходного нулевого значения сумме} i:=0; {задание исходного нулевого значения счетчику} While i<50 do {объявление цикла; он прервется, когда значение счетчика станет равным 50} begin {начало цикла} i:=i+2; {увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50} Sum:=Sum+i; {к сумме прибавляются вышеуказанные значения счетчика} end; {конец цикла} Writeln('Sum= ',Sum); {вывод результата (значения суммы) на экран} Readln {приостановка работы программы, чтобы можно было полученный результат рассмотреть} End. {конец тела программы} |
|
19.06.2013, 17:30 | #10 (permalink) |
Новичок
Регистрация: 17.06.2013
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а поч в строчках
i:Byte; Sum:Word; нета там типа real или integer а именно byte и word? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|