1. С вещественными числамиvar k:real;begin Write('Размер фотографии, мб: '); Read(k); Writeln('На flash-card объемом 2 Гб поместится фото: ', Trunc(2*1024/k))end.
ПримерРазмер фотографии, мб: 3.27На flash-card объемом 2 Гб поместится фото: 626
2. С целыми числамиvar k:integer;begin Write('Размер фотографии, мб: '); Read(k); Writeln('На flash-card объемом 2 Гб поместится фото: ',2*1024 div k)end.
ПримерРазмер фотографии, мб: 3На flash-card объемом 2 Гб поместится фото: 682