Даны два целых числа A и B (Aamp;lt;B).Найти и вывести все

Даны два целых числа A и B (Alt;B).Отыскать и вывести все отрицательные числа,их сумму и их количество от A до B включительно.Записать код и блок схему(Pascal)

Задать свой вопрос
Lenka Kuharchuk
Допиши
Арина Трохачева
Какой язык?
Оксана Калибекова
Pascal
1 ответ
Var a,b,sum,i,k : integer;
begin
readln(a);
readln(b);
k:= 0;
sum := 0;
i := 0;
For i := a to b do begin
sum = sum + i;
write(i, ' ')
k = k + 1
end;

writeln('Сумма = ', sum);
written('Количество = ', k);

//Часть твоего ответа, это только код.






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


Последние вопросы

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

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

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

Войти на сайт