program Chernovik;
var a: integer;
begin
write ('Введите трехзначное число: ');
readln (a);
if a > ((a mod 10) * (a div 100) * (a div 10 mod 10))
then write ((a mod 10) * (a div 100) * (a div 10 mod 10), ' < ',a)
else write ((a mod 10) * (a div 100) * (a div 10 mod 10),' >= ',a)
end.
Объяснение:
a mod 10 - последняя цифра трёхзначного числа
a div 100 - первая цифра трёхзначного числа
a div 10 mod 10 - средняя цифра трёхзначного числа
div - целочисленное деление
mod - остаток от целочисленного деления
1. Ветераны Чернобыля,вступайте в ряды Долга!На нас лежит огромная ответственность - Нужно защитить мир от наступления Зоны!
2. Свободные сталкеры,ветераны,и охотники - вливайтесь в ряды долга!Защитить мир от заразы Зоны наша общая задача!
3. Сталкер, защити мир от Зоны - вступи в долг!
4. Мир со страхом смотрит на расползающийся заразу Зоны,вступи в Долг своих родных и близких!
5. Смертельным аномалиям,опасным мутантам,а так же анархистам и бандитам не остановить Долг.Мы победоносной поступью идем на гражданам всей планеты!
6. Сражаясь с мутантами вы покроете себя вечной славой! Кроме того кто вступил в Долг - обеспечивается оружием и отличным снаряжением.
7. Мы верим в нашу победу,верим в то что Зона будет уничтожена. Вступай в ряды Долга!
Объяснение: В ДОЛГ
Поделитесь своими знаниями, ответьте на вопрос:
Определитель значение переменной c после выполнения следующего фрагмента программы a: = 50 b: =10 a: = a - 4 * b if a > b then c: = b + 3 * a else c: = b -5 * a
50|10
10|(по формуле )
с=10+3×10=40
c=10-5×10=-40
ответ:-40