Вам Сон

Задачи по Паскалю

1. Вычисление факториала

Задача: Напишите программу на языке Паскаль, которая вычисляет факториал заданного числа.

Решение:

program Factorial;
var
  number, fact, i: integer;
begin
  write('Введите число: ');
  readln(number);
  
  fact := 1;
  for i := 1 to number do
    fact := fact * i;
  
  writeln('Факториал числа ', number, ' равен ', fact);
end.

2. Проверка числа на простоту

Задача: Напишите программу на языке Паскаль, которая проверяет, является ли заданное число простым.

Решение:

program PrimeNumber;
var
  number, i: integer;
  isPrime: boolean;
begin
  write('Введите число: ');
  readln(number);
  
  isPrime := true;
  for i := 2 to number - 1 do
  begin
    if (number mod i) = 0 then
    begin
      isPrime := false;
      break;
    end;
  end;
  
  if isPrime then
    writeln(number, ' - простое число')
  else
    writeln(number, ' - не является простым числом');
end.

3. Сумма элементов массива

Задача: Напишите программу на языке Паскаль, которая считывает элементы массива и вычисляет их сумму.

Решение:

program ArraySum;
const
  N = 5; // размер массива
var
  arr: array[1..N] of integer;
  i, sum: integer;
begin
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;
  
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];
  
  writeln('Сумма элементов массива равна ', sum);
end.

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