Var x,y:real;
begin
readln(x,y);
if (y>=2) and (x*x+y*y>=16) and (x*x+y*y<=36) then
writeln(‘принадлежит’)
else writeln(‘не принадлежит’);
end.
писал с телефона, так что могут быть синтаксические ошибки
но логически программа верная
может быть повесть.
может быть рассказ.
вот так сказка, стихотворения, рассказ.
или сказка, стихотворения, повесть.
//PascalABC.NET 3.1 сборка 1200
begin
// создаем массив и заполняем случайными числами от -50 до 50
var a := ArrRandom(ReadInteger('n='), -50, 50);
//выводим массив
a.Println;
//находим индекс максимального элемента
var max := a.IndexMax();
// выводим значение макс. элемента и его индекса
writeln('Max = ', a[max], ' Index = ', max);
// заменяем максимальный элемент минимумом
a[max] := -50;
//находим индекс второго максимального элемента (на данный момент уже первого)
max := a.IndexMax;
// выводим значение элемента и его индекса
writeln('Max = ', a[max], ' Index = ', max);
end.
Каждый символ весит один байт. В слове "маменька" восемь символов, следовательно весит 8 БАЙТ. (или 64 БИТ)