Рядом с каждым числом вывести значение квадратного корня из этого числа и подсчитать сумму корней меньших 15.

@tut · Регистрация: 09.12.2011

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

С клавиатуры вводят целые положительные числа. Рядом с каждым числом вывести значение квадратного корня из этого числа и подсчитать сумму корней меньших 15.

magirus · 23.12.2011, 00:52

Комментарий модератора

ваша срочность, зачетность, экзаменабельность мало кого интересует.
называйте темы в соответствии с требованиями правил форума.

@КонецСвета · 23.12.2011, 02:47

Pascal

uses crt;
var a: array [1..100] of integer;
    n,i: integer;
    sq: real;
begin
writeln('Сколько чисел будет введено? ');
readln(n);
sq:=0;
for i:=1 to n do
    begin
    write(i,'-->');
    readln(a[i]);
    end;
writeln(' число   корень');
for i:=1 to n do
    begin
    write(a[i]:5);
    writeln(sqrt(a[i]):9:2);
    if sqrt(a[i])<15 then
      sq:=sq+sqrt(a[i]);
    end;
writeln('Сумма корней, меньших 15 = ',sq:7:2);
readkey
end.

@tut 1 / 1 / 0 Регистрация: 09.12.2011 Сообщений: 11
		1
	Рядом с каждым числом вывести значение квадратного корня из этого числа и подсчитать сумму корней меньших 15. 23.12.2011, 00:47. Показов 1304. Ответов 2 Метки нет (Все метки) С клавиатуры вводят целые положительные числа. Рядом с каждым числом вывести значение квадратного корня из этого числа и подсчитать сумму корней меньших 15. 0

	23.12.2011, 02:47

Рядом с каждым числом вывести значение квадратного корня из этого числа и подсчитать сумму корней меньших 15.

Решение