Паскаль
program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.
1. Окончание срока действия триальной версии (следует приобрести лицензионную копию продукта, а если она была приобретена - переактивировать, обратившись за в техподдержку (адреса и телефоны см. в мини-форуме во Эта надпись появляется тогда, когда вы открываете документы, созданные в более ранних версиях редактора, например, в Word 2003. В этом случае не используются новые возможности редактора, обеспечивая режим совместимости разных версий.
Нужно преобразовать документ в формат Office 2007. Тогда эта надпись исчезнет, но при открытии преобразованного документа в более ранних версиях редактора возникнут проблемы при редактировании, либо уже при открытии документа.
Чтобы преобразовать документ, щелкните по кнопке Office и выберите команду Преобразовать. Откроется диалоговое окно, предупреж дающее о последствиях такого преобразования. Если вы подтвердите преобразование, то заменит / сохранит текущий документ в новом формате.
Если кнопка "Преобразовать отсутствует" - следует сохранить две версии одного документа: одна для старых редакторов, другая в новом формате. Это делается стандартно через выбор команды Сохранить как... .
3. Возможно, сработала защита документа (Вкладка - "Рецензирование" - "Защитить документ" - "Отключить защиту").
