Упрощение логических выражений. 10 класс.
Добрый день, очень вас У меня выходит тройка по информатике, я по дополнительное задание, что бы исправить свою оценку. Но дело в том, что я не понимаю, как это решать и у меня совсем нет времени для того, что бы разобраться в этом самому, так как это нужно будет сдать уже завтра это мой новый класс и в моей предыдущей школе у меня вообще не было информатики. Для меня это всё, как параллельная вселенная Был бы очень вам признателен. Могу, также вам, в благодарность, если вы в этом нуждаетесь. Проблемы с русским языком или с английским? Обществознание? Экономика? В общем, я чистый гуманитарий. Если что, обращайтесь. И сочинение вам напишу и всё сделаю, только мне с этим Могу заплатить. Телеграм: Surper007
begin
writeln('На что должно делиться (2 числа через пробел) =>');
readln(a,b); {делится на а и b но не делится на c}
writeln('На что не должно делиться (1 число) =>');
readln(c);
writeln('Верхняя граница(1 число) =>');
readln(n);
for i:= 1 to n do
if (i mod a = 0) and (i mod b = 0) and (i mod c <> 0) then
writeln(i);
end.
var i:integer;
begin
for i:= 1 to 30 do
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0) then
writeln(i);
end
2)
var i:integer;
begin
for i:= 50 downto 1 do
if (i mod 2 <> 0) then
writeln(i);
end.
begin
writeln('На что должно делиться (2 числа через пробел) =>');
readln(a,b); {делится на а и b но не делится на c}
writeln('На что не должно делиться (1 число) =>');
readln(c);
writeln('Верхняя граница(1 число) =>');
readln(n);
for i:= 1 to n do
if (i mod a = 0) and (i mod b = 0) and (i mod c <> 0) then
writeln(i);
end.
var i:integer;
begin
for i:= 1 to 30 do
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 4 <> 0) then
writeln(i);
end
2)
var i:integer;
begin
for i:= 50 downto 1 do
if (i mod 2 <> 0) then
writeln(i);
end.