Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (
Я делаю через промежуточный расчет - сначала в десятичную систему
143(7) = 3*7⁰ + 4*7¹ + 1*7² = 3+28+49 = 80(10)
Вспоминаем, что цифры больше 10 обозначаются буквами.
Напоминаю
10=А, 11=B, 12=C, 13=D, 14=E,15=F - это для перевода в 16-ричную.
Теперь наши 80 делим на 12, а остатки записываем.
80(10) = 6*12¹ +8*12⁰ = 68(12) - ОТВЕТ
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>