Вкаком случае верно равенство: 8+7=3? 1)если это часы на циферблате 2)если это 16-ричная система счисления 3)такое невозможно, ни при каких условиях 4)если это римские числа
195
269
Ответы на вопрос:
1. var a, k, l, m: integer; begin s: = 0; writeln ('введите число'); readln(a); if (a> =10) and (a< =999) then k: =a div 100; l: = k div 10; m: = a mod 10; s: = k+m+l; writeln ('сумма цифр в числе равна ', s); end. 2. var i, a, s: integer; begin s: =0; for i: = 1 to 3 do begin writeln ('введите число №', i); readln(a); if (a> 5) and (a mod 5 = 0) then inc(s); end; writeln('количество четных чисел, которые делятся на 5 - ', s); end. 3 var a, b, c, d, max, med, min: integer; begin writeln ('введите число'); readln(a); b: = a div 100; c: = b div 10; d: = a mod 10; if (b< c) and (b< d) then min: = b; if (c< b) and (c< d) then min: = c; if (d< c) and (d< b) then min: = d; if (b> c) and (b> d) then max: = b; if (c> b) and (c> d) then max: = c; if (d> c) and (d> b) then max: = d; if (b> c) and (b< d) or (b< c) and (b> d) then med: = b; if (c> b) and (c< d) or (c< b) and (c> d) then med: = c; if (d> c) and (d< b) or (d< c) and (d> b) then med: = d; writeln(min, med, max); end.
Популярно: Информатика
-
naked15924.04.2020 10:44
-
anelya4110.09.2020 22:52
-
1964hade19.06.2021 12:04
-
NarGog23.03.2020 03:41
-
симона7122.06.2021 12:42
-
marina20081025.12.2021 12:32
-
МарысяДэн31.05.2022 03:45
-
юлия2004322.06.2022 12:19
-
Salkin35510.10.2020 04:28
-
4iterok21129.11.2022 18:12