Определить частное квадрата суммы положительных чисел и суммы квадратов отрицательных чисел?

@morp · Регистрация: 19.12.2012

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

Последовательно вводятся действительные числа пока не будет введено заданное число. Определить частное квадрата суммы положительных чисел и суммы квадратов отрицательных чисел?

@CodeR · 20.12.2012, 14:36

Pascal

Var a,s1,s2,n:real;
Begin
    write('Введите число которое означает конец ввода: ');readln(n);
    s1:=0;s2:=0;
    While a<>n do
    Begin
      write('Введите число: ');readln(a);
      if a<>n then
       if a>0 then
        s1:=s1+sqr(a)
         else s2:=s2+sqr(a);
    End;
    writeln('Сумма квадратов положительных = ',s1:0:2);
    writeln('Сумма квадратов отрицательных = ',s2:0:2);
    if s2<>0 then writeln('Частное = ',s1/s2:0:2)
     else writeln('Частное не определено!');
    readln;
End.

@morp 0 / 0 / 0 Регистрация: 19.12.2012 Сообщений: 10
		1
	Определить частное квадрата суммы положительных чисел и суммы квадратов отрицательных чисел? 19.12.2012, 23:35. Показов 1748. Ответов 1 Метки нет (Все метки) Последовательно вводятся действительные числа пока не будет введено заданное число. Определить частное квадрата суммы положительных чисел и суммы квадратов отрицательных чисел? 0

	20.12.2012, 14:36

Определить частное квадрата суммы положительных чисел и суммы квадратов отрицательных чисел?

Решение