При кодировке текстового сообщения, состоящего из 70 символов, потребовалось 560 бит, а при дальнейшем изменении кодировки на другую его итоговый объем составил 70 байт. Какое преобразование кодировок производилось? 1)ASCII > Unicode
2)Unicode > ASCII
3)ASCII > ASCII
4)Unicode > Unicode

Program deposit;
var p,s: real;
n:integer;
begin
p:=0;//величина прибавки
s:=1000;//первоначальная сумма
n:=0;//число месяцев
while p<=30 do //пока прибавка меньше 30 руб.
begin
p:=s*0.02; //величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Ежемесячное увеличение вклада превысит 30 руб через ',n, ' месяцев');
n:=0; //обнуление счетчика месяцев
s:=1000;//восстановление значения первоначального взноса
while s<=1200 do
begin
p:=s*0.02;//Величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Величина вклада превысит 1200 руб через ',n,' месяцев');
end.

ответ: Считываем первое число(n), чтобы определить, до какого момента должен продолжаться цикл. Создаем переменную sum, чтобы хранить найденное количество чисел, удовлетворяющих условию. Запускаем цикл, считываем число, если последняя цифра - 4 (проверяем при получения остатка от деления на 10) и число делится на 6 (проверяем при получения остатка от деления на 6), то добавляем к в переменную sum 1.

n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)

Объяснение: n = int(input())

sum = 0

for i in range(0, n):

  current = int(input())

  if current % 10 == 4 and current % 6 == 0:

      sum += 1

print(sum)