Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
Записываешь число, после справа налево записываешь нумерацию цифр в числе, начиная с нуля, потом по формуле " K*p^n+.....и так со всеми цифрами" k- само число, р - та система счисления, в которую переводишь, n - номер цифры Пример: 101 (двоичая). 1*2^2+0*2^1+1*1^0
Должно быть так:
If a > 0 then a:=3 else a:=4; - лишняя запятая
If 10 = z then z:=z+1 else z:= 1; - лишнее двоеточие
В последнем операторе возможны различные варианты, но
выбрать один нельзя, не зная исходной формулы.
Вот варианты:
If k > 0 then writeln ('да') else if k<0 then writeln ('нет');
If k > 0 then writeln ('да') else writeln ('нет')
11010010-11011011-11010101-11010011-11001001 =0
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем