Составить программу для решения задачи:

"Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько фотографий поместится на флэш-карту объёмом 2 Гбайта."

Язык программирования: Pascal

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