Question

Напишите программу на языке Паскаль для вычисления суммы чисел, кратных 3 из промежутка от 1 до k (k вводится с клавиатуры). Пожалуйста

Answer 1

Ответ:

var k, sum, i:Integer;

begin

sum:=0;

readln(k);

for i := 1 to k do

begin

 if  (i mod 3 = 0)then

 sum:=sum+i;  

end;  

writeln(sum);

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль для вычисления суммы чисел, кратных 3, из промежутка от 1 до заданного числа k:

pascalCopy code
program SumOfMultiples;
var
  k, i, sum: integer;
begin
  writeln('Введите число k:');
  readln(k);

  sum := 0;

  for i := 1 to k do
  begin
    if i mod 3 = 0 then
      sum := sum + i;
  end;

  writeln('Сумма чисел, кратных 3, от 1 до ', k, ' равна: ', sum);
end.

Просто скопируйте этот код в среду разработки на языке Паскаль, сохраните его как .pas файл и скомпилируйте с помощью выбранной вами компилятора. После запуска программы она будет ожидать ввода значения k с клавиатуры и затем вычислит сумму чисел, кратных 3, в указанном промежутке.