Сколько строк в тексте если он занимает 5 страниц по 65 символов в каждой строке? при составлении текста использовали 128-символов алфавит, и сообщение содержит 34125 байтов информации а)120 б)12 в)15 г)150

Ядумаю - в

Const q1 = -500; const q2 = 600; var kr7,kr3, z: integer; k, h : integer; beginh : = q1; while h < q2 dobeginkr7 : = h mod 7; if (h > 0) and (kr7 = 0) then  begink : = k +1; writeln('число кратных ', h); end; h : = h +1; end; writeln('число кратных положительных ', k); h : = q1; k: =0; while h < q2 dobeginif (h < 0)   then  beginz: = z + h; kr3 : = z mod 3; if (kr3 = 0)   then  begink : = k +1; writeln('число кратных ', z); end; end; h : = h +1; end; writeln('число кратных 3 отрицательных ', k); end.

Program figna ; {это название} var a,b,c,d:   integer;   {объявление переменных a,b,c и говорим что они целые} begin  {начало}   writeln('введите три числа');   {запрос чисел} readln(a,b,c);   {ввод чисел} d: =a*b*c;   {умножаем числа и присваиваем d их значение}  if (d< 50) then  {если произведение чисел меньше 50 то}   a: =a*10;   {первое число умножаем на десять}   b: =b*10;   {второе число умножаем на десять}   c: =c*10;   {третье число умножаем на десять} writeln(a); {выводим первое} writeln(b);   {выводим второе} writeln(c);   {выводим третье} else  {иначе} writeln(d);   {выводим произведение} end.  {конец} p.s. этот символ {  } паскаль не читает и означает он коментарий