Исполнитель Редактор получает ил и может выполнять - вопрос №17684593 от gusakova2016poly 22.03.2022 01:45

Question

Информатика: Исполнитель Редактор получает ил и может выполнять две команды, командах и об A) заменить (о, ш), повышает её, цифр- Эта команда заменяет и строке первое и щепочку Например, выполнение заменить (111, 27) преобразует строку 05111150 в строку 0627150. Если в строке пет вхождений в, то выполнение команды заменить (v, 10) не эту строку. Б) нашлось (v). Эта команда проверяет, ли цепочка в строке наполнителя Если она встречается, то команда логическое «истина в противном случае ложь . Строки неполнителя

gusakova2016poly · Answer

Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так:
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.