Question

ДАЮ 90 БАЛЛОВ СРОЧНО Написать программы на Паскале. 1) Дано целое число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. 2) Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно. 3) Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Answer 1

вот надеюсь помогла. .....

Answer 2

Конечно, вот программы на языке Pascal для выполнения каждой из задач:

1. Вывести стоимость 1, 2, …, 10 кг конфет:

pascalCopy code
program CalculateCandyCost;
var
  PricePerKg, Kg: integer;
begin
  writeln('Введите цену 1 кг конфет:');
  readln(PricePerKg);
  
  writeln('Стоимость конфет:');
  for Kg := 1 to 10 do
  begin
    writeln(Kg, ' кг: ', Kg * PricePerKg);
  end;
end.

2. Найти сумму всех целых чисел от A до B включительно:

pascalCopy code
program CalculateSum;
var
  A, B, Sum, i: integer;
begin
  writeln('Введите два целых числа A и B (A < B):');
  readln(A, B);
  
  Sum := 0;
  for i := A to B do
  begin
    Sum := Sum + i;
  end;
  
  writeln('Сумма всех чисел от ', A, ' до ', B, ' равна ', Sum);
end.

3. Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел:

pascalCopy code
program PrintNumbersAndCount;
var
  A, B, N, i: integer;
begin
  writeln('Введите два целых числа A и B (A < B):');
  readln(A, B);
  
  N := 0;
  writeln('Целые числа между ', A, ' и ', B, ':');
  for i := A to B do
  begin
    writeln(i);
    N := N + 1;
  end;
  
  writeln('Количество чисел между ', A, ' и ', B, ' равно ', N);
end.

Вы можете скомпилировать и запустить эти программы на своем компьютере с помощью среды разработки Pascal (например, Turbo Pascal, Free Pascal и т. д.).