13)напишите программу позволяющую определить входит ли заданная цифра в некоторое целое неотрицательное число

ответ: var

n, r: integer;

begin

write('n = ');

readln(n);

writeln;

while (n > 0) and (r < > 2) do

begin

r : = n mod 10; { < == последняя цифра числа }

n : = n div 10 { < == удаляем последнюю цифру }

end;

writeln(r = 2); { < -- выводим значение выражения (r=2) }

readln

end.

объяснение: вроде так

32 кбит/с*16 с=524288 бит=65536 кбайт.

вес 1 страницы=8*48=384 бит.48

кол-во стр=524288/384=1365 страниц

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.