Дано натуральное число. определить: 1) определить количество повторений заданной цифры в нем 2) сколько раз в нем встречается цифра, равная последней 3) количество четных цифр в нем. желательно в basic. но можно ипаскаль

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.

Дано: разрешающая способность сканера 600 х 600 dpi. размер 10см x 15см. глубина цвета - 3 байта. найти: каков информационный объём этого файла? решение: вначале переводим глубину цвета из байт в биты 3 байта * 8бит в байте = 24 бит вычисляем разрешение сканера в 1 дюйме квадрат 600*600 = 360 000 пикселей в 1 дюйм^2 переводим размер картинки из квадратных сантиметров в квадратные дюймы. 10см = 3.937дюйма 15см = 5,906дюйма 10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2 вычисляем количество пикселей в изображении 23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей информационный объём вычисляем по формуле количество пикселей * глубину цвета = 8 370 000 пикселей * 24 бит = 200 880 000 бит. переводим в байты делением на 8. 25 110 000 байт или же делим на 1024*1024 чтобы получить количество мегабайт 23,95 мегабайт ответ: информационный объём сканированного изображения = 25 110 000 байт или 23,95 мегабайт

Using system; namespace consoleapplication9 {       class program       {               static void main()               {                       console.write("n = ");                       int n = int.parse(console.;                       int sum = 0;                       for (int i = 1; i < = n; ++i)                               if (i % 2 == 0) sum += i;                       console.writeline("sum = {0}", sum);                       console.readkey();               }       } }