Первое что пришло в голову - перевести число в строку, и уже работать как со строкой, т.е. делаем перебор в цикле, и проверку равно ли 0, если да - удаляем.
Спасибо
Ответ дал: Гость
1)10см=3,937дюма
dpi - точек на дюйм
3,937*1000=3937 - точек
3937*3937=15499969 точек
каждая точка кодируется 2-мя байтами
всего 30999938 байт
1 мегабайт = 1024*1024=1048576
на картинку 29,56 мегабайта
2) 256 1 байт
200*100=20000 пикселей
1 килобайт = 1024 байта
картинка займет 20000/1024=19,5 килобайта
ps а вообще, каждое нужно писать отдельно
Ответ дал: Гость
var a: array[1..50] of integer; i,f, n: integer;
begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.
Популярные вопросы