Сколько пикселей содержит рисунок 10х15 см, если на 1 дюйм приходится 250 точек (1 дюйм = 2, 5 см)

10*15=150; 150/(2.5*2.5)=24; 24*250=6000; ответ: 6000 пикселей

1:

var n,k,s: integer;

begin

s: =0;

readln(n,k);

n: =abs(n);

while n> 0 do begin

if (n mod 10=k) then

s: =s+1;

n: =n div 10;

end;

writeln(s);

end.

2:

var n: integer;

s: string;

begin

readln(n);

s: =inttostr(n);

if (s[1]=s[length(s)]) then

writeln('да') else

writeln('нет');

end.

3:

var n,p,s,k: integer;

begin

readln(n);

p: =1;

s: =0;

k: =0;

while n> 0 do begin

p: =p*(n mod 10);

s: =s+(n mod 10);

k: =k+1;

n: =n div 10;

end;

writeln('количество цифр = ',k);

writeln('сумма цифр = ',s);

writeln('произведение цифр = ',p);

end.

1.  → 2 [сдвинуться вправо, перейти на строку 2] 2.  → 3 [сдвинуться вправо, перейти на строку 3] — в вопросе опечатка? 3.  → 4 [сдвинуться вправо, перейти на строку 4] 4. ? 5; 2 [если в текущей ячейке нет метки, перейти на строку 5, иначе вернуться на 2] 5.  ← 6 [сдвинуться влево, перейти на строку 6] 6. v 7 [поставить метку, перейти на строку 7] 7. [закончить работу] программа делает следующее: переходит на метку вправо, шагами по две ячейки идёт вправо, пока не дойдёт до пустой ячейки, возвращается на ячейку влево, ставит там метку и заканчивает работу. пусть метки расположены в ячейках 0 - (n-1), каретка под ячейкой 0. тогда сначала каретка окажется подячейкой 1, сделает [n/2] шагов по 2 вправо ([x] — целая часть x), оказавшись под ячейкой 1 + 2 * [n/2],  вернётся на ячейку влево (ячейка 2 * [n/2]) и поставит там метку. если n было четным, будут заполнены ячейки от 0 до n, каретка под ячейкой n если n было нечетным, будут заполнены ячейки от 0 до n - 1, каретка под ячейкой n - 1