1. Составьте программу, проверяющую, что введенное число является четным или нечетным 2....

Question

1. Составьте программу, проверяющую, что введенное число является четным или нечетным
2. Составьте программу, проверяющую, что введенное число делится без остатка на 3

Answer 1

1)
var
    i: integer;

begin
    readln(i);
    Writeln('Четное?  - ', i mod 2 = 0);
end.

2)
var
    i: integer;

begin
    read(i);
    Writeln('Делится на 3? - ', i mod 3 = 0)
end.

Comments

"правильный" вариант уже написан. Я написала другой вариант. Может автору так больше понравится

---

подход простой - есть версии для программистов, есть версии для полупрограммистов, и есть хорошо проработанный клиентский интерфейс. Если в эту программу добавить этот самый интерфейс, то он займет много места. Проверка на языковые и региональнные настройки, поиск подходящего языкового файла и тп

---

данный вариант - полупрограммистский. Потому что совсем программистский скорее вывел бы просто остаток от деления и получил бы максимум информации из этого

---

Мой бог, как Вы любите околопредметной шелухой пытаться уходить в сторону от прямого вопроса!

---

и какой же ваш простой вопрос?

---

В свое время я за меньшее студентов с экзамена отправлял учить предмет. И закончим на этом.

---

не понимаю. что тут такого? и в чем тут такая серьезна ошибка? в чем вообще ошибка?

---

Ошибки нет. Есть непоследовательность в словах и действиях.

---

чесно говоря я таковой не вижу.

---

в мелочах все конечно бывает но в основном не вижу

Answer 2

//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное') 
else
Writeln('Не четное');
end.

//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
end.