<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
Важным вопросом, интересующим каждого пользователя, остаётся соотношение плюсов и минусов данной системы. Итак, к абсолютным плюсам можно отнести понятный и приятный интерфейс, мощную защиту от вредоносных программ, отличную скорость работы и надёжность системы, а также бесплатное сервисное обслуживание. Минусы, конечно, тоже присутствуют. Во-первых, Mac – недешёвая система, а во-вторых, Mac не поддерживает большинство программ, разрабатывавшихся для Windows.
Мощность (N)=2 в степени I
16= 2^4
I=4
V=k*i
k=V/i
k=32/4
k=8
Ответ: 8 символов
Начало программы
Ввод X, Y, Z
Присвоить А:=0
Если ХЕсли Y>Z тогда А:=А+Y, иначе А:=А+Z
Если X<(Y/Z) тогда А:=А+Х, иначе А:=А+Y/Z
Вывод А
Конец программы