0

Рейтинг

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

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

Категория: Информатика 3 года назад

На вопрос 3 года назад

Olya Grischenko

0

Рейтинг

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
Первая цифра нечетная

Ответ получен 3 года назад

Амина Бахтина

0

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

Ответы (1)

0

Войти на сайт