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

Чатик
8 участников
скобец7: 45
запятыня, саша, не забудьте форму взять, сегодня в футбол пойдём!
саша7: 50
о, , что напомнил, осталось только уместить её в рюкзак…
скобец7: 51
а что ты ещё собрался тащить? ? сегодня же только да .
ксюша
саша7: 51
войну и мир! хочу показать наталье владимировне, какие у меня необычные иллюстрации в книге!
скобец7: 51

тёма8: 30
ой, соня, аня, я проспал, идите без меня.
соня8: 31
ок.
аня8: 32
ты к музыкальной переменке-то успеешь?
тёма8: 32
постараюсь, а что вы будете петь?
арсен8: 32
попробуй угадать песню (это монеточка):
тёма8: 42
хм… так непонятно, ну скоро узнаю) до встречи!
соседи соседи
аня
ксюша
арсен
футбол футбол
запятыня
скобец
саша
музыка музыка
соня

скобец
саша

Показать ответ
Ответ:
KaguraChan
KaguraChan
13.10.2022 17:03
Var x1, x2, y1, y2: integer;
O: boolean;
begin       
write('X1: ');       
readln(x1);       
write('Y1: ');       
readln(y1);       
write('X2: ');       
readln(x2);       
write('Y2: ');       
readln(y2);       
if (x1 < 0) and (x2 < 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if (x1 < 0) and (x2 < 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if O = true then write('TRUE')       
else write('FALSE');
end.
0,0(0 оценок)
Ответ:
nikzaytsev2001
nikzaytsev2001
14.08.2022 06:21
Program ;
var  min_e, max_e,  count, i, j, otn: integer;  a: array[1..5, 1..7] of integer;  srednee: real;
begin  for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do a[i, j] := Random(81);  end;  max_e := 1;  min_e := 81;  srednee := 0;  for i := 1 to 5 do     for j := 1 to 7 do     begin      if a[i, j] < min_e then min_e := a[i, j];      if a[i, j] > max_e then max_e := a[i, j];      if a[i, j] mod 5 = 0 then      begin        srednee := srednee + a[i, j];        count := count + 1;      end;    end;  otn := max_e div min_e;  srednee := srednee / count;      for i := 1 to 5 do   begin    writeln;    for j := 1 to 7 do write(a[i, j]:3);  end;  writeln;  writeln(min_e, ' ', max_e, ' ', otn, ' ', srednee);end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота