44,94,94(четные) 47,97,99,97,99 (не четные(
1) 2 мб = 2048 КБ
2048: 40 = 51,2( раза больше)
( если что : деление)
Program progul ;
var total , lost , visit : real ;
begin
write ('vvedite vsego zaniatii Total=' ) ;
readln ( total ) ;
write ( 'vvedite Propuskov =' ) ;
readln ( lost ) ;
visit := (total - lost ) / total * 100 ;
writeln ( 'procent poseshaemosti=' , visit:5:2 , '%' ) ;
end.
read(n);
if (n>99) and (n<1000) then writeln('Yes');
Сканер,принтер,веб-камера