В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
нарешатор
нарешатор
21.03.2023 03:05 •  Информатика

Задання 1. Объясните последствия нарушения правил техники безопасности, согласно
указанной ситуации.


Задання 1. Объясните последствия нарушения правил техники безопасности, согласноуказанной ситуации.​

Показать ответ
Ответ:
kimmatveev
kimmatveev
04.02.2021 02:21

program n_9;

var x,a,b:real;

begin

writeln('определение принадлежности точки отрезку');

 writeln('введите a');

 readln(a);

writeln('введите b');

readln(b);

writeln('введите x');

readln(x);

if ((x>=a) and (x<=b)) then writeln('точка принадлежит отрезку')

else writeln('точка не принадлежит отрезку');

end.

Объяснение:

нужна была тчк с запятой после действия в else, в этом была ошибка. (еще ни разу не видела, чтобы переменные в паскале вводили через запятую, так что не рискуй.)

а это советы на будущее:

нормальные скобки в условиях.

0,0(0 оценок)
Ответ:
lipa2907
lipa2907
24.08.2020 08:20

Решение

gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?

Добавлено через 35 минут

gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

program mas1;

const

nmax=100;

var

a: array[1..nmax,1..nmax] of integer;

n,i,j,sum,sum1: integer;

begin

randomize;

write('Ââåäèòå ðàçìåð ìàòðèöû n: ');

readln(n);

writeln('Ìàòðèöà:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(150)-50;

write(a[i,j]:5);

end;

writeln;

end;

sum:=0;

sum1:=0;

j:=1;

for i:=1 to n do

sum:=sum+a[i,i];

for i:=n downto 1 do

begin

sum1:=sum1+a[i,j];

j:=j+1;

end;

writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);

writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);

writeln;

end.

0

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