Помагите с заданием по информатике!!!!

Question

Помагите с заданием по информатике!!!!

Vladzim™ Профи (870), закрыт 8 лет назад

Напишите пожалуйста саму дорабтку програмы ток на ПАСКАЛЕ)))

Дополнен 15 лет назад

Answer 1

Введешь например а=2 б=1, выдаст что четных нет.
Доработать можно например так:
var a,b:integer;
begin
readln(a,b);
a:=a mod 2;
b:=b mod 2;
if ((a>0) and (b=0)) or ((a=0) and (b>0)) or ((a=0) and (b=0))then
writeln('четное число есть')
else writeln('четного нет) ;
end;
В условии оператора выбора перебираются три возможных случая удовл. условию:
перовое четное, второе нечетное
первое нечетное, второе четное
оба четных

Исправил мессадж))

Answer 2

ludmil@ Гуру (3218) 15 лет назад

ого!!!! я не в силах помочь

Vladzim™Профи (870) 15 лет назад

я просил мне помоч!! а ты ...

Answer 3

Юлька Мастер (1603) 15 лет назад

я фиг его знает

Vladzim™Профи (870) 15 лет назад

класный ответ!!!!

Answer 4

Ответит, что "чётных чисел нет", если "а" чётное, а "b" нечётное. Например, если а=2, b=3.

Варианты доработки:
ЛИБО в 6-й строке:

if (a>0) OR (b>0) then

ЛИБО так (начиная с 4-й строки)

a:=a mod 2;
if a>0 then begin
b:=b mod 2;
if b>0 then writeln('Чётных нет') else writeln ('Чётные есть');
end; {конец условия if a>0}
end;

Answer 5

Предыдущие посты не переписывай там жуть какая-то :))))))

Вот так надо делать:

1) Пример чисел, при которых возникает ошибка: a=2, b=1

3) Проще всего доработать, добавив в первое условие "else b:=0", условие будет выглядеть так:

if a>0 then b:=b mod 2 else b:= 0;

4) Можно доработать с помощью оператора OR, тогда программа будет проще и короче:

var a, b: integer;
begin
readln(a, b);
if (a mod 2 = 0) or ( b mod 2 = 0) then
writeln('четное число есть')
else
writeln('четных чисел нет');
end.