12.04.2012
12-04-2012 11:35
к комментариям - к полной версии
- понравилось!
program TpeTbe_3adaHue;
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
write('a=');
readln(a);
write('b=');
readln(b) ;
write('c=') ;
readln(c) ;
write('d=') ;
readln(d) ;
write('e=') ;
readln(e) ;
if (a>10000) or (b>10000) or (c>10000) or (d>10000) or (e>10000) then writeln('nJloxou kupnu4uk :( ') else
if (d*e)>=(a*c) then writeln('DA!') else
if (d*e)>=(a*b) then writeln('DA!') else
if (d*e)>=(a*c) then writeln('DA!') else writeln('NO');
readln
end.
вверх^
к полной версии
понравилось!
в evernote