Ответ:

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.

Verified answer

Ответ:

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.