Задачи по Паскалю
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.
Надеюсь, эти примеры задач по языку Паскаль помогут вам лучше понять основы программирования на этом языке. Успехов в изучении программирования!