4 года назад

Укажи, о какой части компьютера идёт речь. Без какой части компьютер не будет работать Помогает быстро открыть любую программу

Знания

Информатика

1 ответ:

Максим 3377 [6]4 года назад

0 0

Компьютерная мышь или блок

Читайте также

дано трехзначное число Напишите программу которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые

Region

Var
a: integer;
begin
readln(a);
if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) then
writeln('Есть')
else
writeln('Нет');
<span>end.</span>

0 0

4 года назад

Что здесь не так? 7 строчка: Форматное выражение может использоваться только внутри write, writeln и str. Сама программа: progra

Stigsler [1.7K]

Как бы написал я:

program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.

Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было

Ну или если только без ошибки, то вот:

program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

какую файловую структуру использует операционная система на ваших компьютерах(простую,многоуровневую)?

Сергей Федорович ...

По видимому многоуровневую...

0 0

4 года назад

Каков будет результат выполнения фрагмента программы, написанной на языке программирования PascalABC: write(length(‘ИНФОРМАТИКА

Ас Владимир

<span>Функция length выводит длину строки, а значит количество символов в слове. Ответ 11 ( б ) </span>

0 0

4 года назад

Написать в Кумире программу для исполнителя Чертёжник. Нарисовать 4 квадрата, которые увеличиваются в порядке возрастания и чтоб

Лена Купцова

Ответ:

использовать Чертежник

алг

нач

цел й,ц

нц для й от 1 до 2

нц для ц от 1 до 4

опустить перо

сместиться на вектор (0,ц)

сместиться на вектор (ц,0)

сместиться на вектор (0,-ц)

сместиться на вектор (-ц,0)

поднять перо

сместиться на вектор (ц+1,0)

кц

сместиться в точку (0,-5)

кц

кон

Объяснение:

Смотри картинку

0 0

4 года назад