Question

Помогите с задачами по Паскалю! Все баллы отдаю за 4 задачек, торопитесь! вывести на экран числа кратные К из промежутка (А B), числа A B K задает пользователь Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3 но не делятся на 5 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10 км нормы предыдущего дня Составить программу, определяющую, является ли данное число N простым.

Answer 1

21,24,27,33,36,39,42,48

Answer 2

Конечно, помогу с задачами по Паскалю! Для каждой задачи предоставлю код на языке программирования Pascal.

1. Вывести на экран числа, кратные K из промежутка (A, B). Числа A, B и K задает пользователь:

pascalCopy code
program Task1;
var
  A, B, K, i: integer;
begin
  writeln('Введите число A:');
  readln(A);
  writeln('Введите число B:');
  readln(B);
  writeln('Введите число K:');
  readln(K);

  writeln('Числа кратные ', K, ' в промежутке (', A, ',', B, '):');
  for i := A to B do
  begin
    if (i mod K = 0) then
      writeln(i);
  end;
end.

2. Напечатать натуральные числа от 20 до 50, которые делятся на 3, но не делятся на 5:

pascalCopy code
program Task2;
var
  i: integer;
begin
  writeln('Числа от 20 до 50, которые делятся на 3, но не делятся на 5:');
  for i := 20 to 50 do
  begin
    if (i mod 3 = 0) and (i mod 5 <> 0) then
      writeln(i);
  end;
end.

3. Программа для тренировок спортсмена:

pascalCopy code
program Task3;
var
  day, distance: integer;
begin
  distance := 10; // Начальное расстояние в первый день
  writeln('Дневные нормы спортсмена:');
  for day := 1 to 10 do // Можно изменить значение 10 на нужное количество дней тренировки
  begin
    writeln('День ', day, ': ', distance, ' км');
    distance := distance + 10; // Увеличиваем норму на 10 км
  end;
end.

4. Программа, определяющая, является ли число N простым:

pascalCopy code
program Task4;
var
  N, i: integer;
  isPrime: boolean;
begin
  writeln('Введите число N:');
  readln(N);

  isPrime := true;
  for i := 2 to trunc(sqrt(N)) do
  begin
    if N mod i = 0 then
    begin
      isPrime := false;
      break;
    end;
  end;

  if isPrime and (N > 1) then
    writeln(N, ' - простое число')
  else
    writeln(N, ' - не является простым числом');
end.

Это коды для четырех задач. Надеюсь, они помогут вам решить задачи по Паскалю! Если у вас возникнут дополнительные вопросы, не стесняйтесь задать. Удачи!