Предмет: Информатика,
автор: sevrikova
40 БАЛЛОВ
Люди добрые, помогите пожалуйста с Паскалем.
Нужно составить программы
1) Дано число х. Уменьшить его на 10, если число находится в интервале (10;100]. Увеличить его в 2 раза, если число меньше, уменьшить в 5 раз если больше.
2) Дано натуральное число у. Уменьшить его на 26, если число трехзначное. Увеличить на 18, если число двузначное.
3) Даны целочисленные координаты точки на плоскости.
Если точка совпадает с началом координат, то вывести 0.
Если точка не совпадает с началом координат, но лежит на оси ОХ или OY,
то вывести соответственно 1 или 2.
Если точка не лежит на координатных осях, вывести номер координатного угла в римских числах.
Заранее огромное спасибо.
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Это решение какой задачи?
Интересные вопросы
Предмет: Физика,
автор: GGNagibator228
Предмет: Математика,
автор: nastyatih2010
Предмет: Обществознание,
автор: mashagoglova777777
Предмет: Химия,
автор: molkov09
Предмет: Алгебра,
автор: danea1905