<span> ближе всего скорее древнеегипетская письменность</span>
Ответ ясный и очень прост: иллюстрация
Желаю удачи:)
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
Ответ:
Объяснение:
Ошибки в строках:
{1} надо писать array
{2} не описана переменная max, необходимо : а не :=
{4} надо downto
{5} обращение к неописанной переменной max, элемент массива должен быть записан как mass[1]
{7) надо mass[i]
{9} мусор 9)
{10} надо не кавычки, а апострофы ' '
//Pascal ABC.NET v3.1 сборка 1172
Var
a:real;
begin
readln(a);
if a>0 then writeln('Положительное, ',a/2) else
if a<0 then writeln('Отрицательное, ',sqr(a)) else
writeln('0');
end.
Пример ввода:
-12
Пример вывода:
-, 144