Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза
40,64 см = 16 дюйм
I=K*i
где K= Разрешающая способность сканера
i = глубина цвета
I= 600*1200*16*16*3 байта получается 552960000 байта , можно в Мегабайтах сразу перевести , для этого делим на 1024 ( получаются Килобайты , потом еще раз на 1024)
552960000/1024= 540000 Кб
540000 КБ / 1024 = 527,34375 МБ
I=2байта
символов всего 55 если конечно в конце предложения нет точки.
тогда: кол-во символов умнажаем на 2(байта)=55×2=110байт, а если вконце ещё стоит точка то кол-во символов 56 и мы делаем по такому же принцепу 56×2=112 вот и всё.
1.
алг
нач
цел а
ввод а
вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.
Было число ав
Стало число 2ав2
Разложим его на разряды
2ав2=2*1000+а*100+в*10+2=2002+100а+10в
По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:
32ав=2ав2 ( Число ав тоже разложим на разряды, получим 10а+в)
32(10а+в)=2002+100а+10в
32(10а+в)=2002+10(10а+в)
32(10а+в)-10(10а+в)=2002
22(10а+в)=2002
10а+в=2002:22
10а+в=91
Итак, искомое число 91