Помогите, задача на Delphi:
1. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
2. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
3. Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.
Цикл с параметром 21
4. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
5. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.
В решениях применяется цикл for.
1. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.
2. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
3. Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.
Цикл с параметром 21
4. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.
5. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.
В решениях применяется цикл for.
More Questions From This User See All
Answers & Comments
procedure Zadanie1(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := A to B do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A+1);
ShowMessage(s);
end;
procedure Zadanie2(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := B-1 downto A+1 do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A-1);
ShowMessage(s);
end;
procedure Zadanie3(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + i;
ShowMessage('Сумма чисел = ' + IntToStr(s));
end;
procedure Zadanie4(A: Integer; B: Integer);
Var
p: Integer;
i: Integer;
begin
p := 1;
for i := A to B do
p := p * i;
ShowMessage('Произведение чисел = ' + IntToStr(p));
end;
procedure Zadanie5(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + sqr(i);
ShowMessage('Сумма квадратов = ' + IntToStr(s));
end;