Составить программу, позволяющую определить, есть ли среди цифр задорного целого трехзначного числа х четные?
185
492
Ответы на вопрос:
Var n,d1,d10,d100: integer; begin write('введите натуральное трехзначное число: '); read(n); d1: =n mod 10; d100: =n div 100; d10: =(n div 10) mod 10; if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0) then writeln('есть четная цифра') else writeln('нет четных цифр') end.
Var x,ed,des,sot: integer; begin readln(x); ed: =x mod 10; des: =x div 10 mod 10; sot: =x div 100 mod 10; x: =0; if sot mod 10=1 then x: =x+0 else x: =x+1; if des mod 10=1 then x: =x+0 else x: =x+1; if ed mod 10=1 then x: =x+0 else x: =x+1; if x> 0 then writeln('есть') else writeln('нет'); end.
Using system; using system.text.regularexpressions; using static system.console; internal static class program { private static void main() { try { writeline("введите строку"); var s = readline(); //1) составить программу удаляющую из данного текста все буквосочетания "ма" и выводящую получившийся текст и его длину. var s1 = task1(s, "ма"); writeline($"удалить буквосочетания \"ма\"\nтекст = {s1}\nдлина = {s1.length}"); s1 = task1regex(s, "ма"); writeline($"удалить буквосочетания \"ма\"\nтекст = {s1}\nдлина = {s1.length}"); //2) составить программу находящую количество букв "с" в тексте. writeline($"количество букв \"с\" в тексте = {task2(s, "с")}"); writeline($"количество букв \"с\" в тексте = {task2regex(s, "с")}"); //3) составить программу определяющую, какая из букв "е" или "о" встречается в тексте чаще. writeline($"в тексте чаще встречается = {task3(s, "е", "о")}"); writeline($"в тексте чаще встречается = {task3regex(s, "е", "о")}"); readline(); } catch(exception e) { writeline(e); readline(); } } private static string task1(string s, string frase) { s = s.replace(frase, ""); return s; } private static int task2(string s, string frase) { var count = -1; var k = -1; do { count++; k = s.indexof(frase, k+1, stringcomparison.ordinal); } while (k > = 0); return count; } private static string task3(string s, string frase1, string frase2) { var count1 = task2(s, frase1); var count2 = task2(s, frase2); if (count1 == count2) return "поравну"; return count1 > count2 ? frase1 : frase2; } private static string task1regex(string s, string frase) { var ms = regex.replace(s, frase, ""); return ms; } private static int task2regex(string s, string frase) { var m = regex.matches(s, frase); return m.count; } private static string task3regex(string s, string frase1, string frase2) { var count1 = task2regex(s, frase1); var count2 = task2regex(s, frase2); if (count1 == count2) return "поравну"; return count1 > count2 ? frase1 : frase2; } }
Популярно: Информатика
-
polinapoluunaa28.06.2021 07:42
-
afa200424.12.2021 01:30
-
tamilatumasheva29.06.2023 06:30
-
Kairas06.10.2022 15:47
-
ahmadieva0523.06.2021 00:00
-
Lyn802305.07.2020 00:28
-
404pm18.02.2020 11:19
-
artslk04.04.2020 11:56
-
Lemonchick26.09.2021 01:40
-
Molyaneya13.12.2021 14:36