Question

Напишите 3 задачи с решением на языке паскаль

Answer 1

Объяснение:

1)Вывести на экран слово 'Привет, мир'.

Решение

Program hi;

Var

Begin

Writeln('Привет, мир') ;

End.

2)Ветвление, вводится число а, если a>1 то a*2, или a*a

Решение

Program g;

Var

a:integer;

Begin

Readln(a) ;

if a>1 then

a:=a*2

else

a:=sqr(a) ;

Writeln(a) ;

End.

3)С клавиатуры вводится число,

Answer 2

Конечно, вот три задачи с решением на языке Pascal:

Задача 1: Вычисление факториала

Условие: Напишите программу на Pascal, которая вычисляет факториал числа N. Факториал числа N - это произведение всех целых чисел от 1 до N.

Решение:

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

Задача 2: Проверка на четность

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

Решение:

pascalCopy code
program ParityCheck;
var
  num: integer;
begin
  write('Введите число: ');
  readln(num);
  
  if num mod 2 = 0 then
    writeln(num, ' - четное число')
  else
    writeln(num, ' - нечетное число');
end.

Задача 3: Сумма элементов массива

Условие: Напишите программу на Pascal, которая вычисляет сумму элементов массива целых чисел.

Решение:

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

Эти программы демонстрируют базовые принципы работы с языком Pascal и могут быть использованы для обучения начинающих программированию.