Var a,b,c:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=0;
while a<>0 do begin
c:=c+b;
a:=a-1;
end; writeln('ответ : ',c);
<span>end.</span>
3,14₁₀=3*10⁰+1*10⁻¹+4*10⁻²
10,1₂=1*2¹+0*2⁰+1*2⁻¹
var
a : integer;
begin
write('введите a=');
readln(a);
writeln('a*8=a*2*2*2=', a*2*2*2);
writeln('a*10=a*5*2*1*1=', a*5*2*1*1);
end.
Отдет Д зелёный красный синий. пурпурный лиловый как оттенки. а черный при смешивании цвета нового не даст