Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так: 1. переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое. 2. а дальше стандартно с целочисленного деления выясняем четность первой цифры числа. var a,a1,a2: integer; s: string begin readln(a); //преобразуем число в строку и найдем первые 2 цифры str(a,s); a1: =strtoint(copy(s,1,1)); a2: =strtoint(copy(s,2,1)); writeln('первая цифра числа: ',a1); writeln('вторая цифра числа: ',a2); //проверим первую цифру на четность if a1 mod 2 =0 then writeln(a1,' - четная') else writeln(a1,' - нечетная') end.
gub191025
01.10.2020
Var n,a: integer; begin writeln('введите n: '); readln(n); writeln('введите a: '); readln(a); if (n = 1) or (n = 3) or (n = 5) or (n = 7) or (n = 8) or (n = 10) or (n = 12) then writeln('в месяце 31 день') else if (n = 4) or (n = 6) or (n = 9) or (n = 11) then writeln('в месяце 30 дней') else if (n = 2) and (a = 0) then writeln('в месяце 28 дней') else if (n = 2) and (a = 1) then writeln('в месяце 29 дней') else writeln('данные введены неправильно! '); readln; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нужен пример кода метода расширения (extension methods) на языке c#