Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите решить задачи
Добрый день, помогите пожалуйста написать задачи на языке Паскаль. Спасибо.

№1 Вывести в столбик все натуральные числа из диапазона от a до b.Входные данные:Во входном потоке заданы два целых числа a и b (0 < a < 100, a < b <= 100)Выходные данные:В выходной поток вывести натуральные числа в столбик, каждое с новой строки.Пример входного файла (input.txt):78 84   Пример выходного файла (output.txt):78
79
80
81
82
83
84
Задача №2
Вычислить сумму всех натуральных чисел заданных в диапазоне от a до b.Входные данные:Во входном потоке заданы два целых числа a и b (0 < a < 100, a < b <= 100)Выходные данные:В выходной поток вывести единственное целое число.Пример входного файла (input.txt):34 78   Пример выходного файла (output.txt):2520
Задача №3
Вычислить сумму всех целых чисел заданных в диапазоне от a до b.Входные данные:Во входном потоке заданы два целых числа a и b (-100 < a < 100, a < b <= 100)Выходные данные:В выходной поток вывести единственное целое число.Пример входного файла (input.txt):-34 8   Пример выходного файла (output.txt):-559

Задача № 4
  Вывести в столбик все натуральные числа из диапазона от a до b в обратном порядке.Входные данные:Во входном потоке заданы два целых числа a и b (0 < a < 100, a < b <= 100)Выходные данные:В выходной поток вывести натуральные числа в столбик, каждое с новой строки.Пример входного файла (input.txt):72 83   Пример выходного файла (output.txt):83
82
81
80
79
78
77
76
75
74
73
72
1 | Автор: Liss | 2014-02-17, 15:56   |  Репутация: [ + 0 ]
№1
var
i,a,b:byte;
begin
read(a,b);
for i:=a to b do
writeln(i);
end.

№2
var
i,a,b,sum:integer;
begin
sum:=0;
read(a,b);
for i:=a to b do
sum:=sum+i;
writeln(sum);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2014-02-19, 23:02   |  Репутация: [ + 211 ]
№3 
№2 подойдёт


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2014-02-19, 23:04   |  Репутация: [ + 211 ]
№4
var
i,a,b:byte;
begin
read(a,b);
for i:=b downto a do
writeln(i);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2014-02-19, 23:05   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: