Паскаль!! дам 20 балловИз спектра [a,b] получить сумму положительных чисел и

Паскаль!! дам 20 баллов

Из спектра [a,b] получить сумму положительных чисел и подсчитать количество отрицательных чисел.

Задать свой вопрос
Виолетта Гумнина
паскаль ?0
Levtova Margarita
паскаль
Агянцова Олеся
а и б с клавиатуры вводятся?
1 ответ

Var a,b,c,d,i:integer;

begin

read (a,b);

c:=0;

d:=0;

For i:=a to b do begin

If ilt;0 then c:=c+1 else d:=d+i;

end;

Writeln (c);

Writeln (d);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт