На вход программе два целых числа m и n, по модулю не превосходящие 10 в 6 степени. если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число.
259
402
Ответы на вопрос:
Var n,m: longint; begin read(n,m); write((n mod m)*(m mod n)+1) end.
Чтобы не загромождать программу, предполагаем без поверки, что x2> x1 и dx> 0. либо, x2< x1 и dx< 0. в любых иных вариантах программа зациклится. в программе описана функция для подвопроса а); прочие варианты закомментированы. для получения других вариантов достаточно закомментировать строку y: =2*x; и снять комментарий с нужной строки. function f(x: real): real; begin f: =2*x; { f: =x/3+9; f: =x-4; f: =x/8-6; } end; var x,x1,x2,dx,y: real; begin writeln('введите начальное значение, шаг табуляции, конечное значение'); read(x1,dx,x2); x: =x1; repeat y: =f(x); writeln('x=',x,', y=',y); x: =x+dx until x> x2+dx/2 { +dx/2 - это защита от накопления погрешности } end. тестовое решение: введите начальное значение, шаг табуляции, конечное значение 0 0.33 3.3 x=0, y=0 x=0.33, y=0.66 x=0.66, y=1.32 x=0.99, y=1.98 x=1.32, y=2.64 x=1.65, y=3.3 x=1.98, y=3.96 x=2.31, y=4.62 x=2.64, y=5.28 x=2.97, y=5.94 x=3.3, y=6.6 сомневающиеся в пользе "довеска" dx/2 в последней формуле, могут попробовать выполнить этот же контрольный пример, изменив предпоследнюю строку на более привычное until x> x2. и убедиться, что решение для х=3.3 пропадет.
Популярно: Информатика
-
спецназ822.10.2021 17:59
-
Аврoра26.01.2023 19:51
-
DedPootis05.10.2021 23:20
-
MorozilkAAA27.06.2023 08:59
-
момалог19.06.2021 15:14
-
vlad2007711.11.2022 17:59
-
q1w9924.01.2020 07:51
-
kravchenko171227.05.2022 20:24
-
XTreams15.04.2021 00:22
-
vafla312124.05.2021 00:36