ПолухинаТененева565
?>

Var x1, y1, a1, b1, x2, y2, a2, b2, x3, y3:integer; beginwriteln('Введите координаты левого нижнего угла и длины сторон первого прямоугольника');readln(x1, y1, a1, b1);writeln('Введите координаты левого нижнего угла и длины сторон второго прямоугольника');readln(x2, y2, a2, b2);if x1+a1>x2+a2 then x3:=x1+a1 else x3:=x2+a2;if y1+b1>y2+b2 then y3:=y1+b1 else y3:=y2+b2;write('Координаты правого верхнего угла общего прямоугольника x=', x3, ' y=', y3);end.переведите на питон​

Информатика

Ответы

Svetlana290419
1) Компьютер - ( англ.- вычислитель ) - это универсальное у-во для хранения, обработки и передачи информации. В настоящее время его основная работа - управление различными информационными функциями.
2)Табличный процессор, т.к. эта программа относится к прикладному ПО
3) СИСТЕМЫ ПРОГРАММИРОВАНИЯ, но не СИСТЕМНЫЕ ПРОГРАММЫ
4) А.
5) С.
6)С. Текстовые и графические редакторы относятся к прикладному ПО
7) Сложно найти ответ, но я знаю определение:
ОС - система программ для управления ресурсами компьютера и организации взаимодействия с человеком.
8) Драйверы - программы, необходимые для работы разных устройств подключенных к компьютеру. Скорее Б
9)Не уверяю, но по моему А
10)К операционным системам? Этот вопрос я не поняла
Сурат1199

Команда For:

For x:=1 to 9 do Writeln(x)

Команда While:

x:=-5;

While x<9 do

begin

y:=abs(x);

Writeln(y);

x:=x+1

end;

Объяснение:

Цикл For:

For переменная-счетчик := начальное значение to конечное значение do

For x:=1 to 9 do

x - переменная-счетчик

1 - начальное (минимальное) значение переменной-счетчика

9 - конечное (максимальное) значение переменной-счетчика

начальное значение <= конечного значения  (если это не так, то тело цикла не выполнится ни разу)

В цикле переменная-счетчик автоматически увеличивается на 1 каждый раз при выполнении тела цикла, пока не достигнет конечного значения включительно.

В цикле While переменную надо увеличивать (или уменьшать) в теле цикла, но зато это можно делать на нужный шаг.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Var x1, y1, a1, b1, x2, y2, a2, b2, x3, y3:integer; beginwriteln('Введите координаты левого нижнего угла и длины сторон первого прямоугольника');readln(x1, y1, a1, b1);writeln('Введите координаты левого нижнего угла и длины сторон второго прямоугольника');readln(x2, y2, a2, b2);if x1+a1>x2+a2 then x3:=x1+a1 else x3:=x2+a2;if y1+b1>y2+b2 then y3:=y1+b1 else y3:=y2+b2;write('Координаты правого верхнего угла общего прямоугольника x=', x3, ' y=', y3);end.переведите на питон​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

familumid
oldulo74
evge-borisova2
nickname0091
skrepka397412
Ромеовна1527
arnaut-anna
Игорь Андрей
ПогальниковАлёна589
Sofinskaya1185
zanthia94
Surkova_Pavlovna
olyavoznyak
jim2k
vintazhvintazh90
▲