Задание на 2 вида циклов

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

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

Пусть имеется последовательность (на картинке) Название: xjoDWh6UrDU.jpg
Просмотров: 15

Размер: 7.4 Кб

Определите сколько элементов последовательности нужно взять что бы сумма превысила некоторое число N. Решить двумя видами цикла.

@Svager · 17.12.2013, 23:02

Pascal

uses crt;
var s,n,i,k:integer;
BEGIN
clrscr;
 write('n = ');
 read(n);
 i:=1;s:=0; k:=0;
 repeat
 i:=i+1;
 s:=s+(i+3);
 inc(k);
 until s>n;
 write(k);
readkey;
END.

Добавлено через 1 минуту

Pascal

uses crt;
var s,n,i,k:integer;
BEGIN
clrscr;
 write('n = ');
 read(n);
 i:=1;s:=0; k:=0;
 while s<n do
 begin
 s:=s+(i+3);
 i:=i+1;
 inc(k);
 end;
 write(k);
readkey;
END.

@Larus15 0 / 0 / 0 Регистрация: 16.12.2013 Сообщений: 74
		1
	Задание на 2 вида циклов 17.12.2013, 21:46. Показов 1067. Ответов 1 Метки нет (Все метки) Пусть имеется последовательность (на картинке) Определите сколько элементов последовательности нужно взять что бы сумма превысила некоторое число N. Решить двумя видами цикла. 0

	17.12.2013, 23:02

Опции темы

Задание на 2 вида циклов

Решение