Программа используется для выполнения или создания каких либо файлов!
процедуры отличаются от функций тем,что процедура это как проверка функциональности чего-либо.
а функция выполняет множество команд программ и не только.
Условия y≤-x при x≤0 и y≤x при x>0 можно объединить в одно: y≤|x|
var
x, y: real;
begin
Write('Введите координаты точки на плоскости: ');Readln(x, y);
if (y <= abs(x)) and (y >= sqr(x) - 3) then
Writeln('Точка принадлежит заштрихованной области')
else
Writeln('Точка не принадлежит заштрихованной области')
end.
<em><u>Тестовое решение:</u></em>
Введите координаты точки на плоскости: -1.15 -1.24
Точка принадлежит заштрихованной области
1) for
2) 1
3) В изображении 64*64 = 4096 точек512 байт = 4096 битНа одну точку приходится 4096 / 4096 = 1 битN = 2^i, где N - кол-во цветов, а i - кол-во бит информации на точку => N = 2^1 = 2. Ответ: 2 цвета.
4) not (5 = 3+2) =
<span>= not (5 = 5) =
= not true = false => ложно
5) </span>Вычисление суммы ста чисел, введенных пользователем.
var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.