Добрый день, помогите пожалуйста написать задачи на языке Паскаль. Спасибо.
№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
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
|
|
|
|
№3
№2 подойдёт
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
№4
var
i,a,b:byte;
begin
read(a,b);
for i:=b downto a do
writeln(i);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
