решить задачу по информатике: Дано трёхзначное число. Выяснить первая или вторая цифра в его
записи наименьшая (выдать сообщение об этом). Если наименьшая первая
цифра, то поменять местами первую и вторую цифры. Далее, проверив всё
число на кратность трём вывести на печать вместе с результатом проверки
nastiabl5ct
1
30.12.2020 13:25
5
Другие вопросы по теме Информатика
KAKAKALYYA12
05.03.2020 03:58
AENabatov
05.03.2020 03:55
vfghjufr
05.03.2020 03:45
djugju
19.05.2021 19:10
ThisIsIlya
19.05.2021 19:08
schoolboy371
19.05.2021 19:08
BOYECH
10.09.2020 02:48
Molina1234
09.09.2020 03:22
kazymbietova71
09.09.2020 02:54
KÆTÉ
25.05.2019 06:00
Популярные вопросы
- 4. Рассмотри множества. Назови элементы каждого множества. Най- ди общее свойство...
1 - Обобщите в диаграмме Венна «Снегурочка и Купава». (общее и различия) Прочитайте...
1 - 523Б. Почему лучи солнца названы золотыми нитями? Назови метафоры....
2 - Добавь в множество C недостающие элементы, чтобы множество B было подмножеством...
3 - 477Б. Какова основная мысль текста? В каком предложении она выражается? Рассказывали...
3 - Решите уравнение: -0.4*(3x-5)+0.3*(2-5x)= 6.04...
3 - найди координаты вектора n перпендикулярно плоскости, заданной уравнением х+у+z=0,...
2 - Числа в фигурах расположены по определенному порядку. Найдите число, не подходящее...
1 - 6 класс.сказку о земле нужно сегодня ☹☹☹...
2 - Человек, стоявший около скалы, услышал эхо от своего крика через 7 секунд. Определите...
2
Program n_1;
var a,d,b,c,f,h,Y: integer;
Begin
Read(a);
b := a div 100;
c:= a mod 100;
d := c div 10;
f:= a mod 10;
if (b > d) then writeln (“первое цифра больше’’), else begin
h:=d*100+b*10+ f;
writeln (“вторая цифра больше’’);
end;
Y := d+b+f;
if (Y mod 3) = 0 then
writeln (Y);
writeln (“a делится на 3’’);
end.