Var x,y: real;
begin
write('Введите координаты точки х и у:');
readln(x,y);
if abs(y)<=1 then
if (1<=x) and (x<=5) then
writeln('Да, принадлежит')
else writeln('Нет, не принадлежит')
<span>end.</span>
А) 1 байт = 8 бит
7 бит < 8 бит
7 бит < 1 байт.
б) 1 Кбайт = 1024 байт
1024 байт > 1000 байт
1 Кбайт > 1000 байт.
в) 1 Гбайт = 1024 Мбайт
1025 Мбайт > 1024 Мбайт
1025 Мбайт > 1 Гбайт.
Не знаю, как у тебя, но у меня они просто заменяют друг друга, когда я их перетаскиваю мышкой на нужное место.
А=5
скорей всего так, или а<=5
Var i,n,m,sum:integer;d:array[1..20] of integer;beginn:= 34511;repeat i:= i + 1;d[i]:= n mod 10;n:= n div 10;until n = 0;//writeln(d);foreach m in d dosum:= sum + m;writeln(sum);if sum mod 7 = 0 then write('сумму его цифр,кратна 7')elsewrite('сумму его цифр,некратна 7');end.