Паскаль. написать программу для трехзначного числа и вычислить на сколько старший разряд больше младшего.
164
419
Ответы на вопрос:
Var i, n: integer; b: array[1..3] of integer; begin write('type integer: '); readln(n); if n< 0 then n: =-n; // уничтожение знака числа repeat i: = i + 1; b[i] : = (n mod 10); // вывод последней цифры числа n: = n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('цифра сотен больше десятков ',b[3] - b[2])elsewriteln('цифра сотен меньше десятков ',b[2] - b[3]); if b[2] > b[1] thenwriteln('цифра десятков больше единиц ',b[2] - b[1])elsewriteln('цифра десятков меньше единиц ',b[1] - b[2]); end.
(x+y)/2-средний возраст. |(x+y)/2 - х|- отклонение от средней коли |(x+y)/2 - у|-отклонения от средней миши
Популярно: Информатика
-
kseniafilipovich0906.09.2022 22:39
-
wiiiikkkkaaa09.09.2021 16:33
-
balasanyansilva21.05.2022 19:18
-
Alovelygirl109.02.2022 08:15
-
podzolkova5418.04.2022 02:25
-
osmo200801.02.2023 18:50
-
сопп12.11.2021 18:15
-
ryssik03.02.2021 16:30
-
alexasnowbell22.11.2020 12:57
-
adashevanastya26.07.2022 12:31