Найти количество элементов, квадрат которых больше числа В

@Танюше4ка · Регистрация: 20.01.2012

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

дана последовательность из 10 чисел(задать самостоятельно)
найти количество элементов, квадрат которых больше числа В.

@Puporev · 27.02.2012, 10:41

Pascal

uses crt;
var i,a,b,k:integer;
begin
clrscr;
write('Введите целое число для сравнения b=');
readln(b);
writeln('Введите 10 целых чисел');
k:=0;
for i:=1 to 10 do
 begin
  readln(a);
  if a*a>b then k:=k+1;
 end;
write('Количество чисел, квадрат которых больше ',b,'=',k);
readln
end.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Найти количество элементов, квадрат которых больше числа В 27.02.2012, 10:11. Показов 1689. Ответов 1 Метки нет (Все метки) дана последовательность из 10 чисел(задать самостоятельно) найти количество элементов, квадрат которых больше числа В. 0

	27.02.2012, 10:41

Найти количество элементов, квадрат которых больше числа В

Решение