Question

Створити програму, яка визначає одноцифрове, двоцифрове чи трицифрове число введено з клавіатури. Задача 3: Створити програму, яка визначає середне з трьох чисел. Паскаль ​

Answer 1

Ответ:

Python

number = int(input("Введіть число: "))

if number < 10:

   print("Це одноцифрове число")

elif number < 100:

   print("Це двоцифрове число")

elif number < 1000:

   print("Це трицифрове число")

else:

   print("Це число має більше трьох цифр")

Pascal

program check_number;

var

 number: integer;

begin

 write('Введіть число: ');

 readln(number);

 

 if number < 10 then

   writeln('Це одноцифрове число')

 else if number < 100 then

   writeln('Це двоцифрове число')

 else if number < 1000 then

   writeln('Це трицифрове число')

 else

   writeln('Це число має більше трьох цифр');

end.

Програма спочатку запитує у користувача число і зберігає його в змінній number. Далі використовується послідовність if-elif-else для перевірки, скільки цифр має введене число. Якщо число менше 10, то воно є одноцифровим, якщо воно менше 100, то воно є двоцифровим, якщо воно менше 1000, то воно є трицифровим, інакше воно має більше трьох цифр. Після цього програма виводить на екран відповідне повідомлення.

Задача 3 Pascal

program average;

var

 a, b, c: integer;

 average: real;

begin

 write('Введіть перше число: ');

 readln(a);

 

 write('Введіть друге число: ');

 readln(b);

 

 write('Введіть третє число: ');

 readln(c);

 

 average := (a + b + c) / 3;

 writeln('Середнє арифметичне: ', average:0:2);

end.

Програма спочатку запитує у користувача три числа (a, b та c) за допомогою процедури readln. Потім обчислює середнє арифметичне цих чисел за допомогою формули (a + b + c) / 3 і зберігає результат у змінній average. Нарешті, програма виводить результат на екран за допомогою процедури writeln.

Зверніть увагу, що тип змінної average визначений як real, оскільки середнє арифметичне може бути дійсним числом. Для виведення результату з двома знаками після коми використовується форматування виводу :0:2.

Answer 2

Ответ:

program CalculateAverage;

var

num1, num2, num3: real;

average: real;

begin

write('Enter the first number: ');

readln(num1);

write('Enter the second number: ');

readln(num2);

write('Enter the third number: ');

readln(num3);

average := (num1 + num2 + num3) / 3;

writeln('The average is ', average:0:2);

readln;

end.

Answer 3

Ось приклад програми на мові Pascal, яка визначає, чи є введене число одноцифровим, двоцифровим або трицифровим:

pascalCopy code
program NumberType;

var
  number: integer;

begin
  writeln('Введіть число: ');
  readln(number);
  
  if (number >= 0) and (number < 10) then
    writeln('Це одноцифрове число.')
  else if (number >= 10) and (number < 100) then
    writeln('Це двоцифрове число.')
  else if (number >= 100) and (number < 1000) then
    writeln('Це трицифрове число.')
  else
    writeln('Введене число не є одноцифровим, двоцифровим або трицифровим.');
    
  readln;
end.

А ось приклад програми, яка знаходить середнє з трьох чисел:

pascalCopy code
program Average;

var
  num1, num2, num3: real;
  average: real;

begin
  writeln('Введіть перше число: ');
  readln(num1);
  
  writeln('Введіть друге число: ');
  readln(num2);
  
  writeln('Введіть третє число: ');
  readln(num3);
  
  average := (num1 + num2 + num3) / 3;
  
  writeln('Середнє значення: ', average:0:2);
  
  readln;
end.

Ці програми запитують користувача про числа та виводять відповідні результати на екрані.