Question

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

Answer 1

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

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает данную задачу:

pascalCopy code
program PhotoCapacityCalculator;

var
  photoSizeMB, flashCardSizeGB: real;
  photosToFit: integer;

begin
  // Ввод размера фотографии и объёма флэш-карты
  write('Введите размер одной фотографии в Мбайтах: ');
  readln(photoSizeMB);

  write('Введите объём флэш-карты в Гбайтах: ');
  readln(flashCardSizeGB);

  // Переводим объём флэш-карты в Мбайты
  flashCardSizeGB := flashCardSizeGB * 1024;

  // Вычисляем количество фотографий, помещающихся на флэш-карту
  photosToFit := trunc(flashCardSizeGB / photoSizeMB);

  // Выводим результат
  writeln('На флэш-карту объёмом ', flashCardSizeGB:0:2, ' Мбайт поместится ', photosToFit, ' фотографий.');
end.

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