Доработайте программу.
программу написать без and'ов , иным способом.

var x,y: real;
begin read(x,y);
if y< =x*x then
if x> = -1 then
if y> = 0.5 then
if x< 0 then write ('принадлежит ')
else write ('нет')
end.

Популярно: Информатика

• 

  Walmok

  10.11.2022 17:21
  Дано: Коэффициенты рождаемости и смертности — n=10 и m=9. Численность населения...
• 

  nata12377

  24.05.2022 23:48
  Одномерный массив x(10) задать с клавиатуры. найти сумму отрицательных, количество...
• 

  anonimka2018oz5x7j

  06.12.2021 01:33
  Что значит в информатике i малая и ещё формулы по первой четверти в информатике...
• 

  123Dulya

  27.05.2023 08:20
  Тормозит компьютер что делать windows 7...
• 

  MrTraserS

  05.01.2021 18:27
  Что такое глубина цвета? как связаны глубина цвета и объём файла?...
• 

  sok6

  09.03.2023 07:54
  Составьте блок-схему и программу решения следующей задачи. Вычислить путь, пройденный...
• 

  gidfgwlr

  29.08.2022 14:31
  Какой формат данных в ячейке В3? *  числовой общий текстовый дата и время ​...
• 

  Jason19

  12.08.2020 00:52
  Как построить график в Excel на основе данных таблицы? как можно показать оценки...
• 

  GDIZzzEr

  23.02.2020 23:13
  Напишите программу, которая определяете произведение кубов четных чисел от 5 до...
• 

  wiwivvv

  15.08.2021 13:04
  напишите программу, которая заполняет матрицу случайными числами и находит максимальный...