Анастасий
4 год назад
40 поинтовЛюди добрые, Пожалуйста посчитайте пожалуйста с Паскалем.Нужно составить программы1) Дано число х. Уменьшить его на 10, если число находится в интервале (10;100]. Увеличить его в 2 раза, если число меньше, уменьшить в 5 раз если больше.2) Дано натуральное число у. Уменьшить его на 26, если число трехзначное. Увеличить на 18, если число двузначное.3) Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси ОХ или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, вывести номер координатного угла в римских числах.Заранее огромное спасибо.
ОТВЕТЫ
Илиян
Oct 24, 2020
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
120
Смежные вопросы:
