№1. деленне нацело. (100 ) вам два целых числа - n и. ваша - заменить в числе последние 2 цифры таким образом, чтобы результат делился на к. при этом всех таких чисел нужно выбрать наименьшее. входные данные. в стандартном входном потоке данных (чтение с клавиатуры) в пере строке записано число n. во второй строке записано число к. выходные данные. b стандартный выходной поток данных (запись на экран) в программа должна вывести одно число - результат преобразования, описан выше. ограничения. время выполнения программы не должно превышать 2 секундь каждого теста. 100 n < 2 000 000 000 1 < k < 100

PascalABC.NET

begin

 var (N, k) := ReadInteger2;

 N := N div 100 * 100;

 if N mod k <> 0 then

   N := (N div k + 1) * k;

 Write(N)

end.

Объяснение:

Заменяем две последние цифры числа N нулями, для чего делим его на 100 нацело, а затем результат деления умножаем на 100. Принимаем полученное число за N. Делим это новое значение N нацело на k, затем частное увеличиваем на 1 и умножаем эту сумму на k, получая ответ.

Пример.

N = 3571483, k = 97

N / 100 = 35714: 35714 × 100 = 3571400 - это новое значение N

N / k = 3571400 / 97  ≈ 36818 (остаток ненулевой); 36818 + 1 = 36819;

36819 × 97 = 3574143

16 символов

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 10 страниц * 305 символов = 3050 символов

I = 1 525 байт = 12 200 бит

Найти:

N

I = К * i

i = I / K

i = 12 200 / 3050 = 4 бит

N = 2^4 = 16 символов

1 байт = 8 бит

Задание 1integerВещественные числаДля объявления переменныхWritelnЗадание 2

На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).

var  x: integer;  y: real; begin  Readln(x);  y := (10 + 2 * x) / (11 - x);  Writeln(y); end.При x = 3 переменная y = 2Задание 3var  number, resultNumber, i: integer; begin  resultNumber := 1;  for i := 1 to 3 do    begin      Readln(number);      resultNumber := resultNumber * number;    end;  Writeln(resultNumber); end.Задание 4var  a: integer;  b, c: real; begin  a := 3;  b := -1.5;  c := 6 - 2 * b;  c := c - a;  Writeln(c); end.Результатом вывода будет число 6Задание 5var  x, y, z: integer; begin  x := 8;  y := 2;  if (x > y) then    z := x - y  else    z := y + x;  Writeln(z); end.