Program z1; var s,i,x,p:integer; begin s:=0; for i:=-5 to 5 do s:=s+i; writeln('введите целое трехзначное число'); readln(x); p:=(x div 100)*(x div 10 mod 10)*(x mod 10); if s>p then writeln('сумма чисел из диапазона [-5; 5] БОЛЬШЕ произведения цифр числа ',x) else if s=p then writeln('сумма чисел из диапазона [-5; 5] РАВНА произведению цифр числа ',x) else writeln('сумма чисел из диапазона [-5; 5] МЕНЬШЕ произведения цифр числа ',x); end.
В зависимости от того, нужно или не нужно платить за программу (и кому), программы делятся на три большие группы: лицензионные, условно бесплатные и свободно распространяемые. Многие производители программного обеспечения хотят ра свои программы бесплатно, имея свои цели и свою выгоду в таком Другие готовы поделиться с миром своими наработками, но не готовы "возиться" с организацией процеса продаж, и поэтому тоже раздают свои программы бесплатно. Например, к свободно распространяемым программам относятся:
- бета версии программ или игр (то есть новые, ещё недоработанные - это позволяет провести их широкое тестирование); - программные продукты, являющиеся частью принципиально новых технологий (это позволяет завоевать рынок); - дополнения к ранее выпущенным программам, позволяющие исправить найденные ошибки или расширить возможности (пользователь уже раньше заплатил за первоначальную версию продукта, и в том числе получил право на бесплатные обновления) - драйверы к новым или улучшенные драйверы к уже существующим устройствам.
В edit1,2,3 вводишь числа, потом их делешь 2 mod edit и смотришь равно ли это нулю иди нет если не равно тогда подходит, берешь второе число такие действия если оно подходит тогда сравниваешь с первым и смотришь что больше и так с третьем. var n1,n2,n3,max:word; begin if 2 mod strtoint(edit1.text) <> 0 then n1:=strtoint(edit1.text); if 2 mod strtoint(edit2.text) <> 0 then n2:=strtoint(edit2.text); if 2 mod strtoint(edit3.text) <> 0 then n3:=strtoint(edit3.text); if n1>>n2 then max:= n1 else max:=n2; if max<n3 then max:=n3; edit4.text:= inttostr(max); на форме 4 edit и одна кнопка
var s,i,x,p:integer;
begin
s:=0;
for i:=-5 to 5 do
s:=s+i;
writeln('введите целое трехзначное число');
readln(x);
p:=(x div 100)*(x div 10 mod 10)*(x mod 10);
if s>p then
writeln('сумма чисел из диапазона [-5; 5] БОЛЬШЕ произведения цифр числа ',x)
else if s=p then
writeln('сумма чисел из диапазона [-5; 5] РАВНА произведению цифр числа ',x)
else
writeln('сумма чисел из диапазона [-5; 5] МЕНЬШЕ произведения цифр числа ',x);
end.