Question

Составить программу на языке программирования Turbo Pascal и зарисовать блок-схему для следующей задачи: запросить некоторое целое число А, если вдруг окажется, что точно больше 10, то вывести "Слишком много!", а если меньше 10, то удвоить данное число

Answer 1

Var a: real;
begin
   write('Введите число: ');
   read(a);

   if a > 10 then
      writeln('Слишком много!')
   else
     a := a * 2;
end.

Answer 2

Программа на Turbo Pascal и блок-схема

Для выполнения данной задачи на языке программирования Turbo Pascal и создания блок-схемы, мы можем использовать следующий алгоритм:

1. Запросить у пользователя некоторое целое число A. 2. Проверить, если A больше 10, то вывести "Слишком много!". 3. Если A меньше или равно 10, то удвоить данное число и вывести результат.

Программа на Turbo Pascal:

```pascal program CheckNumber; var A: integer; begin write('Введите целое число A: '); readln(A); if A > 10 then writeln('Слишком много!') else begin A := A * 2; writeln('Результат: ', A); end; end. ```

Блок-схема:

``` [Начало] --> [Ввод A] --> (A > 10?) --> [Слишком много!] --> [Конец] | | ↓ ↓ [Удвоить A] --> [Вывести результат] --> [Конец] ```

Этот код запросит у пользователя целое число A, затем проверит, больше ли оно 10. Если да, то выведет "Слишком много!", иначе удвоит число и выведет результат.

Примечание: При составлении программы и блок-схемы были использованы общепринятые методы и синтаксис языка Turbo Pascal, а также логика задачи.