Предмет: Информатика, автор: tiso228

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

Ответы

Автор ответа: Provider

//Задача 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.

Автор ответа: archery

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.

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

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

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

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

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

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

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

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

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

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

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Русский язык, автор: aykaomarova1

Доклад на тему коррупция