Помогите составить программу решения задачи в паскаль…

Помогите составить программу решения задачи в паскаль АВС. Дано целое число N (больше нуля). Нфйти значение выражения 1,1-1,2+1,3-… (Nслагаемых, знаки чередуются). Условный редактор не использовать.

в избранное

rk777

06 августа 2022

Program gt; var w,s,p,k: real; n,i: integer; beginread (n); w: =1,1; s: =1,1; p: =0,1; k: =1; for i: =1 to n-1 dobegink: =k*-1; w: =w+p; if (k=-1) then s: =s+w else s: =s-w; end; writeln (s); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Бабушка положила на одну тарелку 8 пирожков с мясом, на другую 3 и на третью…

Какиевиды дисков используются в персональных компьютерах?

Сколько всего зеркальных пятизначных чисел?

1. Какой результат отобразится на экране послевыполнения фрагмента программы на Pascal?

В здание 10 этажей, лифт останавливается на каждом этаже, но в лифтевсего две кнопки: «ВВЕРХ НА ТРИ» и «ВНИЗ НА ПЯТЬ»

Перечень значений, из которых следует выбрать одно нужноеинформатика 5 класспомогите плиз^-^

Скорость передачи данных по локальной сети 16 мбит в секунду. Каков объем информации был передан за 20 минут?

Создать массив из 20 чисел случайным образом числом из промежутка от -10 дл 30 вывести элемент массива в строку через…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: