Вот на Pascal (Console Aplication) : var a:Integer; begin Writeln('Vvedite nominal valuti'); Readln(a); case (a mod 10) of 1: if (a=11) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rubl'); end; 2,3,4: if (a=12) or (a=13) or (a=14) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rublya'); end; 0,5,6,7,8,9: if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then Writeln('Y Vas est ',a,' rublei') else begin Writeln('Y Vas est ',a,' rublei'); end; end; Readln; end.
Сначала переведём 8см в дюймы (т.к. разрешение сканера указано в точках на дюйм- dpi ): 8см / 2,54 ≈ 3,15 дюйма Значит, в одной стороне изображения поместится: 1400 * 3,15 = 4410 точек Далее, вычислим информационный объём файла. Для этого количество точек во всём изображении умножим на глубину цвета (это количество информации, нужное для кодирования одной точки изображения): 4410 * 4410 * 8 = 155584800 байт Переведём в мегабайты, дважды поделив на 1024 (или один раз на 2 в 20 степени): 155584800 / 1024 / 1024 ≈ 148,38 МБ
var
a:Integer;
begin
Writeln('Vvedite nominal valuti');
Readln(a);
case (a mod 10) of
1:
if (a=11) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rubl');
end;
2,3,4:
if (a=12) or (a=13) or (a=14) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublya');
end;
0,5,6,7,8,9:
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then
Writeln('Y Vas est ',a,' rublei')
else
begin
Writeln('Y Vas est ',a,' rublei');
end;
end;
Readln;
end.