Найти и вывести первое число, большее M

@amikulia · Регистрация: 07.01.2011

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

решите, пожалуйста)))
среди членов последоваетельности 1+n, 2+n(в квадрате), 3+n(в кубе), 4+n(в 4 степени)....найти и вывести первое число, большее M.

@Puporev · 07.01.2011, 16:46

Pascal

uses crt;
var n,m,s:real;
    k:integer;
begin
clrscr;
write('Введите число для суммы n=');
readln(n);
write('Введите число-предел m=');
readln(m);
if 1+n>m then s:=m
else
 begin
  k:=1;
  s:=k+n;
  while s<=m do
   begin
    k:=k+1;
    s:=k+n*n;
   end;
 end;
write('Первое число больше ',m:0:1,'=',s:0:1);
readln
end.

@amikulia · 07.01.2011, 21:30 **[ТС]**

спасибо огромное)))))))))))

@Puporev · 08.01.2011, 08:07

Неправильно написал однако.... N будет только в четных степенях..

Pascal

uses crt;
var n,m,s,x:real;
    k:integer;
begin
clrscr;
write('Введите число для суммы n=');
readln(n);
write('Введите число-предел m=');
readln(m);
if 1+n>m then s:=m
else
 begin
  k:=1;
  x:=n;
  s:=k+x;
  while s<=m do
   begin
    k:=k+1;
    x:=x*n;
    s:=k+x;
   end;
 end;
write('Первое число больше ',m:0:1,'=',s:0:1);
readln
end.

Найти и вывести первое число, большее M

Решение

Решение

@amikulia 1 / 1 / 0 Регистрация: 07.01.2011 Сообщений: 22
		1
	Найти и вывести первое число, большее M 07.01.2011, 00:37. Показов 2068. Ответов 3 Метки нет (Все метки) решите, пожалуйста))) среди членов последоваетельности 1+n, 2+n(в квадрате), 3+n(в кубе), 4+n(в 4 степени)....найти и вывести первое число, большее M. 0

@amikulia 1 / 1 / 0 Регистрация: 07.01.2011 Сообщений: 22
	07.01.2011, 21:30 [ТС]	3
	спасибо огромное))))))))))) 0

	08.01.2011, 08:07