While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
Глубина цвета = 2 ^3=8=3 бита на пиксель
600*350=210000 пикселя
объем = 3* 210000=630000=615 байт
Введение Предложенное методическое пособие предназначено для организации работы по теме “Моделирование” в рамках дисциплины “Информационные технологии” для специальности 230103. Оно включает в себя теоретические основы по основным разделам данной темы. Содержит задания для самостоятельной работы студентов на уроке с целью закрепления полученных теоретических знаний. При выполнении практических работ доля самостоятельной деятельности студентов должна быть существенно выше, чем при других видах учебной работы; преподаватель в этой ситуации достаточно часто выступает в роли консультанта. Это помогает будущему специалисту научиться самостоятельно осваивать новые знания и умения, что является одной из важнейших целей обучения.
var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
begin
read(a);
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
end.