Дано целое число а. Проверьте высказывание "Число является нечётным" Допишите фрагмент программы: begin var a: integer; begin if __________ then writeIn(_________________) else writeIn(____________); end.
Answers & Comments
suproqbegin var a: integer; begin if a mod 2 = 1 then writeIn('Число не является чётным'); else writeIn('Число является чётным'); end.
0 votes Thanks 0
suproq
В данном случае a - тип integer, чтобы его поделить, нужно использовать div, тогда мы получим целое число того же типа integer, то есть если мы таким образом 5 поделим на 2 (5 div 2) то получим 2, а mod вычисляет остаток от деления, при делении на 2 он либо равен 1 либо 0, то есть 4 - чётное число, 4 mod 2 - получим 0, тогда 4 - чет. 5 - нечётное число, 5 mod 2 получим 1, тогда 5 - нечет. Надеюсь ты поняла, если нет переспроси, попробую более кратко объяснить
svetlana6712
Честно говоря не очень. Нам просто это задали, но не объяснили и в учебнике такого нет.
suproq
integer - это тип переменной, которая может быть только целым числом, то есть 1, 2, 3, 4 и т. д. Чтобы поделить тип integer на integer (разные типы переменных делить нельзя) то мы можем взять div, но тогда мы получим целое число, без остатка. Если мы воспользуемся вот этим mod, то после операции получим остаток от деления.
suproq
Кстати, чтобы программа работала, она должна выглядеть например так: var a: integer; begin readln(a); if a mod 2 = 1 then writeln('Число не является чётным') else writeln('Число является чётным'); end.
suproq
Вначале вводишь, чему должно равняться a, затем программа выводит является оно чётным или нет.
svetlana6712
Спасибо, поняла. Можешь ещё одно решить?
suproq
Ну окей, давай, только желательно новым вопросом :)
suproq
Вот правильная программа тут: begin var a: integer; begin if a mod 2 = 1 then writeIn('Высказывание верно'); else writeIn('Высказывание неверно'); end.
Answers & Comments
var a: integer;
begin
if a mod 2 = 1 then writeIn('Число не является чётным');
else writeIn('Число является чётным');
end.
begin
readln(a);
if a mod 2 = 1 then writeln('Число не является чётным')
else writeln('Число является чётным');
end.
var a: integer;
begin
if a mod 2 = 1 then writeIn('Высказывание верно');
else writeIn('Высказывание неверно');
end.