Question

Напишите программу на языке Паскаль: Даны целые числа K и N (N >0). Вывести N раз число K. Вычисление суммы чисел от 6 до 10. прошу пожалуйста помогите

Answer 1

1) Программа выводит N раз число K:
var k,n,i: Integer;
begin
writeln('Введите k');
readln(k);
writeln('Введите n');
readln(n);
for i:=1 to n do writeln(k);
end.

2) Сумма чисел от 6 до 10:
var a,sum: Integer;
begin
for a:=6 to 10 do
begin
Inc(sum,a);
end;
writeln(sum);
end.

Answer 2

Программа на языке Паскаль для вывода числа K N раз и вычисления суммы чисел от 6 до 10:

scssCopy code
program Main;

var
  K, N, i, sum: integer;

begin
  write('Введите число K: ');
  readln(K);
  write('Введите число N: ');
  readln(N);
  
  for i := 1 to N do
    writeln(K);

  sum := 6 + 7 + 8 + 9 + 10;
  writeln('Сумма чисел от 6 до 10: ', sum);
  
  readln;
end.

Объяснение программы:

1. Вводятся целые числа K и N с помощью процедуры readln.
2. Запускается цикл for, который повторяет команду writeln(K) N раз и выводит число K на каждой итерации.
3. Вычисляется сумма чисел от 6 до 10 с помощью оператора + и сохраняется в переменной sum.
4. Результат выводится на экран с помощью команды writeln.
5. Программа ждет ввода с клавиатуры, чтобы пользователь мог увидеть результат работы программы.