Определить количество чисел, которые меньше заданного числа N

@Алексей) · Регистрация: 28.11.2011

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

№1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2.

№2 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.

@Nikoys · 28.11.2011, 23:52

Нуу, вообще, топик для PascalABC, но ладно. №1 я не понял, что имелось в виду. Так как я лично понял, что A_1=2, A_n=A_1+n-1? Тогда получится, что:

Pascal

program Shag;
var A,i:integer;
y:real;
begin
A:=2;
for i:=1 to 15 do
 begin
y:=A/i;
write(y:3:3,' ');
A:=A+1;
 end;
end.

№2. Вы вручную собираетесь вводить все эти числа или вывод в файл?) Так как первое для меня выглядит довольно стремно) Но что ж.

Pascal

program Chis;
var N:real;
i,k:integer;
A:array[0..16] of real;
begin
writeln('Vvedite granichnoye chislo-->');
readln(N);
k:=0;
for i:=1 to 15 do
 begin
writeln('Vvedite chislo-->');
readln(A[i]);
if A[i]<N then k:=k+1;
 end;
writeln('Kolichestvo-->',k);
end.

Добавлено через 1 минуту
И да, я так понимаю, у вас это в школе или где ещё базы Паскаля пока что? Тогда массивы будут подозрительны. Замените на любую переменную l, присваивайте ей каждый раз число и смотрите, больше ли оно. Т.е.:

Pascal

for i:=1 to 15 do
 begin
writeln('Vvedite chislo-->');
readln(l);
if l<N then k:=k+1;
 end;

@Алексей) 0 / 0 / 0 Регистрация: 28.11.2011 Сообщений: 18
		1
	Определить количество чисел, которые меньше заданного числа N 28.11.2011, 23:33. Показов 1787. Ответов 1 Метки нет (Все метки) №1 Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2. №2 Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N. 0

	28.11.2011, 23:52

Опции темы

Определить количество чисел, которые меньше заданного числа N

Решение