Var
x, y: real;

begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.

var
x, y: real;

begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.

0 0

4 года назад

Почему в байте 8 бит а не 1024 ?

Aleo

Ты перепутала. Это в 1 Килобайте 1024 БАЙТА, а в 1 байте - 8 бит. Также в 1 Кб - 8192 бита.

0 0

4 года назад

Написать программу по Паскале. вычислить произведение нечетных чисел в диапазоне от 40 до 20(строго от 40 до 20!!!) Написать сам

Левченко Валерий [11]

Во вложении
___________________________

0 0

4 года назад

1)Напишите программу,в которой вводится символ,если он находится в интервале '0'. . . '9',то на экран выводится его код,в против

bagthe

//PascalABC.Net 3.1.0.1200
var
    c: char;

begin
    readln(c);

    if c in ['0'..'9'] then
        writeln(ord(c))
    else
        writeln(chr(ord(c) + 1), chr(ord(c) + 2));

    if c in ['A'..'Z'] then
        writeln(LowCase(c));
end.

0 0

1 год назад