PollusikRO
25.10.2021 21:28

Кто шарит в информатике Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме. При наборе программы учитывайте примечания

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Anonimnostya
25.07.2022 12:36

1) a = int(input('Введите градусную меру угла:'))

2) if a < 90 and a > 0:

3)     print('Вы ввели градусную меру острого угла.')

4) if a == 90:

5)     print('Вы ввели градусную меру прямого угла.')

6) if a > 90 and a != 180 and a <= 360:

7)     print('Вы ввели градусную меру тупого угла.')

8) if a == 180:

9)     print('Вы ввели градусную меру тупого угла.')

10) if a > 360:

11)     print('Вы ввели слишком большую цифру, повторите попытку.')

12) if a <= 0:

13)     print('Вы ввели слишком маленькую цифру, повторите попытку.')

Объяснение:

1) Задаём переменную "a", которая принимает введенное человеком число.

2) Если "а" меньше 90 и больше 0, то:

3) Выводится в командной строке 'Вы ввели градусную меру острого угла.'

4) Если "a" равно 90, то:

5) Выводится в командной строке 'Вы ввели градусную меру прямого угла.' P.S.: мы ставим 2 знака "=", так как мы не задаем переменную, а ставим условие.

6) Всё тоже самое, но тут мы пишем, что "a" не будет считаться тупым при 180, используя "!=".

7, 8 и 9) Всё тоже самое.

10 - 13) Предсказываем возможные ошибки. Всё тоже самое.

0,0(0 оценок)
Ответ:
rgmabbasov
05.01.2023 02:23

Задание 1.

program z1;

var a: array[0..14] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 14 do a[i] := Random(101) - 50;

   for i:=0 to 14 do write(a[i], ' ');

end.

Задание 2.

program z2;

var a, b, c: array[0..19] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 19 do begin

       a[i] := Random(21) - 10;

       b[i] := Random(21) - 10;

       c[i] := a[i] + b[i];

   end;

   for i:=0 to 19 do write(a[i], ' ');

   writeln();

   for i:=0 to 19 do write(b[i], ' ');

   writeln();

   for i:=0 to 19 do write(c[i], ' ');

end.

Задание 3.

program z3;

var a: array[0..19] of integer;

i: integer;

begin

   a[0] := 1;

   a[1] := 1;

   for i:=2 to 19 do begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i:=0 to 19 do write(a[i], ' ');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота