Дано натуральное число: 1) найти две первые цифры числа; 2) верно ли, что первая цифр?

Дано натуральное число: 1) найти две первые цифры числа; 2) верно ли, что первая цифр?? данного числа-четная
Гость
Ответ(ы) на вопрос:
Гость
Var a:integer; s,s1,s2:string; begin   readln (a);   str(abs(a),s);   s1:=copy(s,1,1);   s2:=copy(s,2,1);   writeln('Первая цифра:',s1,' Вторая цифра:',s2);   if StrToInt(s1) mod 2 =0 then writeln( 'Первая цифра четная')     else writeln( 'Первая цифра нечетная') end. Тест №1 2345 Первая цифра:2 Вторая цифра:3 Первая цифра четная Тест №2 3345 Первая цифра:3 Вторая цифра:3 Первая цифра нечетная Тест №3 -7521 Первая цифра:7 Вторая цифра:5 Первая цифра нечетная
Не нашли ответ?
Ответить на вопрос
Похожие вопросы