На языке pascal ввести с клавиатуры число и определить делится ли оно на 5. заранее !

Var
a:integer;
begin
if a mod 5=0 then
write('Число делится на 5');
else
write('Число не делится на 5');
end.

for i in range(13):

 if i == 1:

    print('Январь');

 elif i == 2:

  print('Февраль');

 elif i == 3:

  print('Март');

 elif i == 4:

  print('Апрель');

 elif i == 5:

  print('Май');

 elif i == 6:

  print('Июнь');

 elif i == 7:

  print('Июль');

 elif i == 8:

  print('Август');

 elif i == 9:

  print('Сентябрь');

 elif i == 10:

  print('Октябрь');

  elif i == 11:

  print('Ноябрь');

  elif i == 12:

  print('Декабрь');

 else:

       print('Нет такого месяца');

i = 0

while i < 12:

 i = i +1

 if i == 1:

    print('Январь');

 elif i == 2:

  print('Февраль');

 elif i == 3:

  print('Март');

 elif i == 4:

  print('Апрель');

 elif i == 5:

  print('Май');

 elif i == 6:

  print('Июнь');

 elif i == 7:

  print('Июль');

 elif i == 8:

  print('Август');

 elif i == 9:

  print('Сентябрь');

 elif i == 10:

  print('Октябрь');

  elif i == 11:

  print('Ноябрь');

  elif i == 12:

  print('Декабрь');

 else:

       print('Нет такого месяца');

Объяснение:

524288 байт

Объяснение:

У нас есть 128 станиц по 32 строки с 64 символами.

На каждой строке по 64 символа, на каждой странице 32 строки

=> 32 строки * 64 символа  = 2048 символов (на одной странице)

=> 128 страниц * 2048 символов = 262144 символов (на всех 128 страницах)

Изначально наш текст был записан в кодировке Windows-1251 или 8-битовый код Windows, где один символ весит 8 бит, то есть 1 байт.

=> 262144 символов = 262144 байт

Произошла перекодировка из Windows-1251 в UTF-16 (16-битная кодировка Unicode), где один символ весит 16 бит, то есть 2 байта

=> 262144 символов = 524288 байт