1. Информатика
  2. 1.Дано натуральное число S.

1.Дано натуральное число S. Дана последовательность 5, 9, 13, 17,... Сколько слагаемых следует взять, чтобы получить сумму, равную либо превышающую S? Результат вывести на экран. 2. Дано натуральное число n и действительное x. Найти сумму n членов ряда:
Напишите в С++ ,желательно максимально понятно

Вквквквквк Вквквквквк    2   19.12.2020 17:58    2

Ответы
Vkomarova Vkomarova  18.01.2021 17:59

var

a,s,k,x:integer;

begin

readln(x);

a:=5;

s:=5;

k:=1;

while s<=x do

begin

a:=a+4;

s:=s+a;

inc(k);

end;

writeln(k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
artiushkin213 artiushkin213  23.04.2020 18:49
Составить алгоритм. На бесконечном поле имеется стена,состоящая из трёх последовательных отрезков. Все отрезки неизвестной длины. Робот находится в клетке, расположенной в нижнем углу....
04812 04812  23.04.2020 18:49
1. Что такое встроенные объекты?2 Для чего их используют?3. Какие есть модули в SketchUp, позволяющие встроить обьектыв про-грамму ?4 Опишите функции модуля «атериалы?.5 Опишите функции...
koschka2000 koschka2000  23.04.2020 18:48
Чертежник находится в точке (0;0) и его перо поднято. Результатом выполнения, какой последовательности команд Чертежником будет отрезок, от точки (1;1) до точки (3;4)?...
VadimButs VadimButs  23.04.2020 18:48
1. Нумерованный список следует использовать при: 1) составлении алгоритма действий 2) перечислении видов цветов на клумбе 3) описании объектов в комнате 4) перечислении оборудования...
alyakozlova22 alyakozlova22  23.04.2020 18:48
1.Вкладені алгоритми можуть бути... Повними Неповними Зовнішніми...
МаринаБалыгина505212 МаринаБалыгина505212  23.04.2020 18:47
Определите значение переменной «a» после выполнения фрагмента программы a :=10; if a 5then a :=a + 12 else a := a - 7; if a 5then a:= a +12 else a:= a - 7;...
Sherlokzn Sherlokzn  23.04.2020 18:47
Определите значение переменной «a» после выполнения фрагмента программы a := 10; b a:=5; if ( a 5 ) and ( b 5 ) then a := a - 5;...
dan5259oxnhwz dan5259oxnhwz  23.04.2020 18:47
Составить на Паскале программу. которая при вводе с клавиатуры произвольного года выдает соответствующий этому году номер поколения ЭВМ...
StehnkaSova StehnkaSova  23.04.2020 18:46
Опишите известный вам мультимедийный продукт....
latifa5 latifa5  23.04.2020 18:46
Сколько байт и бит в имяни и фамилии Филиппова Малика?​...

Популярные вопросы