Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>
Прежде всего нужно определить остаток от деления исходно числа на 3. для этого, т.к. у вас будет строка вам нужно посчитать сумму отдельных символов строки и взять остаток суммы от деления на 3. Если этот остаток равен :
А) 0, то нужно увеличить любую цифру числа на 3 или 6 или 9 и нужно изменить 1 цифру так, что бы остаток от деления на 3 не изменился.
Б) 1, то одну цифру числа нужно увеличить на 2 или 5
В) 3, то на 1 или 4 или 7
Для того чтобы число было макс. большим нужно брать максимально левую цифру для увеличения.
Ну, как-то так
*Растровый графический редактор* — специализированная программа, предназначенная для создания и обработки растровых изображений
. Подобные программные продукты нашли широкое применение в работе художников-иллюстраторов, при подготовке изображений к печати типографским способом или на фотобумаге, публикации в интернете.
Растровые графические редакторы позволяют пользователю рисовать иредактировать изображения
на экране компьютера, а также сохранять их в различных растровых форматах, таких как, например, JPEG
и TIFF
, позволяющих хранить растровую графику с незначительным снижением качества за счёт использования алгоритмов сжатия с потерями, PNG
и GIF
, поддерживающими хорошее сжатие без потерь, и BMP
, также поддерживающем сжатие (RLE
), но в общем случае представляющем собой несжатое «попиксельное
» описание изображения.
Program ABC;
var
X:array [1..27] of integer;
i,n,a,b:integer;
y:real;
Begin
y:=1;
write ('введите количество элементов массива n =');
readln (n);
write ('введите число a =');
readln (a);
write ('введите число b =');
readln (b); For i:= 1 to n do
Begin
X[i]:= -10+random(25);
write (X[i]:4);
y:=y*(exp(a*(X[i]))-exp(b*(X[i])));
end;
writeln;
write ('Y =',y);
<span>End.</span>
Число баллов за решенные задачи должно быть двузначным, быть кратным 8 и заканчиваться на 8. Такое число среди двузначных только 48
Число баллов, снятых за неверно решенные задачи, дожно быть кратным 5 и заканчиваться на 5.
Иначе число в рязряде единиц при вычитании баллов из числа полученных за решенные задачи не получится 3.
Этим условиям отвечают числа 48 и 35.
13= 6*8 -7*5
Ученик решил 6 задач, неправильно решил 7 задач, не решил 7 задач.