<span>i:=5;
write('7');
while (i<6) do
begin
write(i);
i:=i+1;
end; Ответ будет 75</span>
Вот первое задание:
215=2 * 6^2 + 1 * 6^1 + 5 * 6^0=83
0.017=1 * 8^(-2) + 7 * 8^(-3)=0.1428
128.23=9^2 + 2 * 9^1 + 8 + 2 * 9^(-1) + 3 * 9^(-2)=107,259
Второе:
а) AF=10101111
36=11110
(1111101+10101111)-11110=100001110=2^8 + 2^3 + 2^2 + 2=270
б)125=1010101
A2=10100010
1417=1100001111
1010101+11101*10100010-1100001111=111110100000=2^11 + 2^10 +2^9 + 2^8 + 2^7 + 2^5=4000
решением неравенста является множество {4 5 6 7}
его мощность равна 4
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.