A = -5
A>0 ⇒ ЛОЖЬ
A<0 ⇒ ИСТИНА
A = -3*A = -3*-5 = 15
Ответ: 15
Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
x - бронебойных
2x - трассирующих
2x+6 - обычных
Общее количество патронов:
x+2x+2x+6 = 5x+6
log(2)[1/2x/(5x+6)] = log(2)[(5x+6)/2x] = 2
(5x+6)/2x = 2^2
5x+6 = 8x
3x = 6
x = 2
5x+6 = 5*2+6 = 16
Ответ: 16,2
Основные
*Создавать новый документа имея при этом шаблоны.
*Возможность работы в нескольких документах.
*Автоматическая проверка орфографии.
*Расширенные возможности по форматированию текста.
*Возможность отправки готового документа.
Дополнительные
<span>*Удобное выделение текстовых фрагментов
*Расширенный буфер обмена;Вставка скриншота
*Улучшение читаемости
*Применение водяного знака
*Повтор последней команды
*Простановка знаков ударения
*Настройка верхней ленты под личные нужды
*Быстрое выделение фрагмента текста</span>