Вопрос по информатике:
Даны два целых числа A и B (A<B).Найти и вывести все отрицательные числа,их сумму и их количество от A до B включительно.Записать код и блок схему(Pascal)
Пожаловаться
- 19.04.2018 04:35
- Информатика
- remove_red_eye 16867
- thumb_up 7
Ответы и объяснения 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);
//Часть твоего ответа, это только код.
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);
//Часть твоего ответа, это только код.
Пожаловаться
- 20.04.2018 21:47
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы