Напишите программу вычисления суммы

@Аранис · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

Название: Снимок.PNG
Просмотров: 35

Размер: 1.4 Кб

k,x - ввести с клавиатуры

@ildwine · 18.09.2014, 19:33

Pascal

var
  s, x : real;
  k, n : integer;
begin
  s := 0;
  write('введите число слагаемых K: ');
  readln(k);
  write('введите число X: ');
  readln(x);
  for n := 1 to k do
    s := s + 1 / sqr(x);
  writeln('значение суммы: ', s:0:7);
  readln
end.

@Puporev · 19.09.2014, 08:09

Pascal

if x=0 then
 begin
  write('Значение не определено, деление на 0');
  readln;
  exit
 end;

@Аранис 0 / 0 / 0 Регистрация: 16.12.2013 Сообщений: 13
		1
	Напишите программу вычисления суммы 18.09.2014, 19:09. Показов 1319. Ответов 2 Метки нет (Все метки) k,x - ввести с клавиатуры 0

	19.09.2014, 08:09

Напишите программу вычисления суммы

Решение