Var d1, m1, y1, d2, m2, y2:integer;
begin
write ('1-я дата: ');
readln (d1, m1, y1);
write ('2-я дата: ');
readln (d2, m2, y2);
if (y1 then writeln ('правильно')
else writeln ('неправильно');
end.
подскажите где ошибка
Ответы (1)
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Var d1, m1, y1, d2, m2, y2:integer; begin write ('1-я дата: '); readln (d1, m1, y1); write ('2-я дата: '); readln (d2, m2, y2); if (y1 then ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Помоги с ответом
Какое наибольшее число плоскастей можно проаести через различные пары из четырех параллельных прямых
Нет ответа
Почему при упоминании о лимоне у человека выделяется слюна? случается ли такое у людей которые не ели лимоны?
Нет ответа
Значения слов: 1. Дельта 2. пороги 3. ил 4. папирус 5. оазин 6. фараон
Нет ответа
Объясните как определить заряд иона образуемого кислотным остатком и соответствующий оксид ... на примере H3PO4
Нет ответа
Найдите значение минус А если 1) a=3,8 2) a=-6,4
Нет ответа